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CONVERSION  FACTORS,  U.  S.  CUSTOMARY  TO  METRIC  (SI) 
UNITS  OF  MEASUREMENT 


U,  S.  customary  units  of  measurement  used  in  this  report  can  be  con¬ 
verted  to  metric  (SI)  units  as  follows: 


_ Multiply _ 

acres 

Fahrenheit  degrees 
feet 

gallons  per  minute 
inches 

miles  (U.  S.  statute) 

pounds  (force)  per  square 
foot 

pounds  (force)  per  square 
inch 

pounds  (mass)  per  cubic 
foot 


By _  _ To  Obtain 


4046.8 

square  metres 

5/9 

Celsius  degrees  or  Kelvins* 

0.3048 

metres 

0.003785 

cubic  metres 

per  minute 

25.4 

millimetres 

1.61 

kilometres 

4.882 

kilograms  per 

square  metre 

703.1 

kilograms  per 

square  metre 

16.02 

kilograms  per 

cubic  metre 

*  To  obtain  Celsius  (C)  temperature  readings  from  Fahrenheit  (F)  read¬ 
ings,  use  the  following  formula:  C  =  (5/9) (F  -  32).  To  obtain  Kelvin 
(K)  readings,  use:  K  =  ( 5/9 ) ( F  -  32)  +  273.15. 
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TUNNEL  COST- ESTIMATING  METHODS 


PART  I:  INTRODUCTION 

Background 

1.  Tunnel  construction  in  the  United  States  has  been  character¬ 
ized  as  a  high-risk,  high-cost  business.  Cost  overruns  and  delays  have 
been  especially  damaging  to  public  support  for  rapid  transit  tunnel 
projects  and,  to  a  lesser  extent,  to  water  tunnels.  This  support  is 
critical  since  most  tunnels  are  built  and  maintained  with  taxpayers' 
dollars.  Consequently,  decision  makers  have  been  forced  to  consider  the 
following  difficult  questions: 

What  factors  cause  these  overruns,  what  is  the  relative 
impact  of  each  factor,  and  what  can  be  done  to  improve 
the  assessment  of  these  factors? 

_b .  What  is  needed  to  make  tunnels  more  competitive  with 
aboveground  alternatives? 

£.  The  big  question:  Are  these  projects  necessary  and  in 
the  best  interests  of  the  taxpayer  or  are  there  better 
alternatives? 

2.  Much  research  has  been  sponsored  by  public  agencies  to  find 
answers  to  these  questions.  Institutional  factors  have  been  studied 
(Mayo  et  al.  1968  and  1976,  and  National  Research  Council  1974).  Such 
factors  include  the  business  climate,  the  reputation  of  the  owner,  the 
relative  demand  for  tunnel  construction  and  competing  construction, 
which  influences  bid  prices,  risk,  and  profitability,  and  the  general 
owner-engineer-contractor  relationship.  The  barriers  to  technological 
innovation  and  to  increased  competition  through  the  entry  of  new  firms 
into  the  market  have  been  studied,  and  recommendations  have  been  made 
for  improving  the  current  situation.  This  report  deals  with  one  part  of 
the  overall  problem;  i.e.,  given  the  natural  variability  of  underground 
conditions,  the  productivity  of  various  combinations  of  men  and  equip¬ 
ment  capable  of  constructing  a  tunnel,  and  the  uncertainty  of  the  eco¬ 
nomic  climate,  how  reliable  can  the  estimate  of  the  cost  of  this  planned 


construction  be?  A  companion  question  to  which  answers  were  sought  was, 
what  is  the  relative  cost  impact  of  each  of  the  identifiable  items  of 
uncer ta inty ? 


Purpose 

3.  The  purpose  of  this  study  was  to  develop  or  adapt  reliable 
methods  for  estimating  tunnel  construction  costs  that  could  be  used  by 
planners  and  designers  who  are  not  necessarily  tunnel  experts  or 
est imators . 


Scope 


4.  This  report  presents  the  results  of  a  study  of  tunnel  cost¬ 
estimating  methods.  Important  elements  of  tunnel  construction  are  sum¬ 
marized  and  manual  methods  and  computer  models  for  estimating  tunnel 
costs  are  described  and  compared  in  Part  II.  The  computer  model  (COSTUN) 
was  selected  for  in-depth  study  using  case  histories  of  completed  tun¬ 
nels.  The  three  types  of  estimates  prepared  for  each  of  the  three  se¬ 
lected  case  histories  are  as  follows: 

£.  Estimates  were  prepared  using  all  information  known  to  be 
available  to  bidders.  These  estimates  were  compared  with 
the  engineer's  estimate  and  contractor's  bids. 

_b.  Estimates  were  prepared  using  all  information  available 
at  completion  of  the  tunnel.  These  estimates  were  com¬ 
pared  with  the  as-built  cost  and  the  preconstruction 
estimates  and  bids. 

£.  Parameter  studies  were  made  using  all  information  known 
to  bidders.  Several  estimates  were  prepared  to  assess 
the  cost  consequences  of  assigning  different  values  to 
one  factor  while  holding  ail  other  factors  constant. 

5.  The  results  of  the  analysis  of  COSTUN  using  tunnel  case 
histories  are  discussed  in  Part  III,  and  the  summary  and  conclusions  are 
presented  in  Part  IV.  A  complete  user's  guide  for  the  COSTUN  computer 
program  is  contained  in  Appendix  A. 
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PART  II:  DESCRIPTION  OF  ESTIMATING  METHODS 


6.  In  this  section,  a  general  discussion  of  tunneling  and  tun¬ 
nel  cost  estimating  is  presented,  and  manual  methods,  including  the  use 
of  cost  curves,  are  discussed.  Four  computer  models  for  estimating 
costs  are  described  and  compared. 

Elements  of  Tunnel  Construction 


7.  Before  planning  and  estimating  the  cost  of  a  tunnel,  it  is 
necessary  to  understand  the  different  equipment  and  work  methods  that 
can  be  used  to  accomplish  the  job.  Tunnel  construction  equipment  may  be 
divided  into  three  main  groups:  (a)  excavation  equipment  such  as  drills, 
jumbos,  tunnel-boring  machines,  roadheaders,  and  mucking  machines; 

(b)  tunnel  haulage  equipment  such  as  front-end  loaders,  trains,  and  con¬ 
veyors;  and  (c)  service  equipment  and  facilities  such  as  ventilation  and 
air  conditioning,  generators,  hoists,  and  lights.  Although  the  selec¬ 
tion  of  service  equipment  and  haulage  equipment  is  not  much  affected  by 
the  selection  of  the  heading  excavation  method,  the  selection  of  excava¬ 
tion  equipment  is  definitely  dependent  on  this  method.  Parker  (1970) 
and  Mayo  et  al.  (1968,  1976)  provide  thorough  treatments  of  tunneling 
from  different  perspectives. 

8.  The  actual  construction  of  the  tunnel  consists  of  six  main 
operations : 

ji.  Excavation. 

_b.  Muck  disposal. 

£.  Primary  support  installation. 

d_.  Pumping,  grouting,  or  other  ground  control  measures. 

<i.  Ventilation  and  air  conditioning. 

_f.  Permanent  lining  installation. 

The  methods  and  timing  for  each  of  these  operations  may  be  varied  to  fit 
project  requirements,  site  characteristics,  and  to  some  extent,  designer 
or  contractor  preference.  Excavation  methods  and  equipment  commonly 


used  are  described  in  the  following  paragraphs.  A  more  detailed  discus¬ 
sion  of  various  methods  used  in  construction  of  tunnels  and  shafts  is 
contained  in  EM  LLL0-2-2901  (Dept,  of  the  Army,  Office,  Chief  of  Engi¬ 
neers  (OCE),  1978). 

Conventional  tunnel 

driving  (drill  and  blast  method) 

9.  Three  major  operations  characterize  this  method  of  advancing 
a  rock  tunnel  face.  First,  a  burn  cut  is  drilled  at  the  center  to  allow 
room  for  rock  expansion.  Additional  rings  of  holes  are  then  drilled  in¬ 
to  the  face  on  a  predetermined  pattern,  using  air  or  hydraulically  oper¬ 
ated  drills  mounted  on  a  movable  platform  or  jumbo.  The  holes  are  then 
loaded  with  dynamite  or  ANFO  (a  mixture  of  ammonium  nitrate  and  fuel 
oil)  and  exploders  that  are  connected  to  an  electrical  firing  circuit. 
Men  and  equipment  are  then  moved  back  a  safe  distance  and  the  round  is 
fired.  After  ventilation  of  powder  fumes,  the  mucker  is  moved  in  and 
loads  the  broken  rock  into  muck  cars.  Then  the  muck  is  transported  to 
the  surface  and  disposed  of,  the  mucker  is  moved  back,  and  the  drill 
jumbo  again  advances  to  the  tunnel  heading  to  start  another  round. 
Depending  on  rock  conditions,  grouting  to  stop  groundwater  inflow,  sup¬ 
port  placement,  and  exploratory  drilling  ahead  of  the  face  may  be  nec¬ 
essary  before  another  round  is  drilled  for  explosives. 

10.  Major  decisions  that  must  be  made  in  the  planning  stages  of 
a  conventionally  driven  tunnel  include  whether  air,  electric,  or  diesel 
power  will  be  used  and  whether  equipment  will  be  rubber-tired  or  travel 
on  rails.  The  basis  for  selection  of  power  options  and  equipment  mobil¬ 
ity  are  covered  in  detail  by  Parker  (1970)  and  are  only  summarized  in 
this  report. 

11.  Several  variations  may  be  used  in  conventional  tunnel  driv¬ 
ing  to  accommodate  special  conditions.  In  good  rock,  full-face 
excavation  is  the  favored  method,  but  in  poor  rock  or  a  mixed  face,  or 
in  very  large  tunnels  or  caverns,  heading  and  bench  or  multiple  drift 
methods  may  be  used.  When  heading  and  bench  excavation  is  used,  the  top 
is  normally  driven  portal  to  portal  before  excavating  the  bench.  This 
practice  allows  the  use  of  the  drill  jumbo  in  both  operations.  Prior  to 
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about  1940,  before  jumbos  became  popular,  the  bench  was  usually  exca¬ 
vated  just  behind  the  heading,  with  only  a  short  10  to  1 5—  ft*  working 
platform  left. 

L2.  Mu  1 1 ip Le-d r if t  excavation  is  used  when  the  crown  must  be 
continuously  supported.  Drifts  may  be  driven  at  opposite  springlines 
with  rockboLts  and  shotcrete  used  for  support.  The  rockbolts  may  ex¬ 
tend  transversely  across  the  crown  of  the  main  tunnel  so  that  it  may 
then  be  safely  mined.  There  are  variations  in  the  placement  of  drifts 
to  meet  speciaL  cases. 

L3.  In  a  mixed-face  excavation,  part  of  the  tunnel  face  consists 
of  crushed  rock  or  soft  ground  and  the  remainder  is  more  competent  rock. 
Forepoling  or  spiling  is  used  to  support  the  roof  between  the  nearest 
steel  set  and  the  face.  Sharpened  wood  spiles  or  steel  rods  are  driven 
into  the  roof  at  a  shallow  angle  from  behind  the  nearest  support  and  ex¬ 
tended  some  distance  beyond  the  face. 

14.  Blasting  patterns  vary  for  different  conditions  and  because 
of  contractor  preference.  The  many  options  and  factors  that  should  be 
considered  to  develop  an  efficient  blasting  pattern  are  discussed  in  de¬ 
tail  in  EM  L  l  L  0—2—29  0 1  (Dept,  of  the  Army,  OCF.,  1978).  Blast  holes  are 
normally  drilled  either  8  or  12  ft  deep.  Two  popular  patterns  are  the 
angled  cut  and  the  burn  cut.  A  combination  of  the  two  is  also  used. 

With  the  ang Led  pattern,  four  cut  hoLes  are  angLed  from  the  face  to  in¬ 
tersect  at  the  axis  and  are  heavily  charged.  Next,  a  ring  of  relief  or 
easer  holes  is  driLled,  fol Lowed  by  one  or  more  rings  of  enlarger  holes, 
depending  on  the  tunnel  diameter.  The  outermost  holes  are  the  trim 
hoLes.  Trim  hoLes  in  the  invert  are  caLLed  lifters.  Successive  rings 
are  detonated  after  predetermined  delays,  starting  with  the  cut  holes  at 
the  axis.  The  trim  holes  are  fired  last.  The  lifters  in  the  invert  may 
be  fired  before  or  after  the  trim  holes  around  the  crown  and  spring 
Lines,  depending  on  the  desired  shape  and  size  of  the  muck  piLe.  The 
burn  cut  pattern  uses  one  or  more  Large  diameter  uncharged  holes  at  the 


*  A  tabLe  of  factors  for  converting  U.  S.  customary  units  of  measure¬ 
ment  to  metric  (SI)  units  is  presented  on  page  3. 


axis  to  allow  room  for  rock  expansion  when  the  outer  rings  are  deto¬ 
nated.  Again  blasting  proceeds  from  the  easer  holes  to  the  trim  holed, 
usually  with  predetermined  delays  between  detonations  of  successive 
rings . 

15.  Jumbos  for  drilling  the  blast  holes  may  run  on  the  same 
track  as  rail  muck  cars  or  may  straddle  the  muck  car  tracks  on  wide 
gauge  raild,  or  in  large  tunneld,  the  jumbo  may  be  rubber-tired.  In 
small  tunnels,  with  insufficient  head  space  for  a  jumbd,  lightweight 
air-leg  drills  may  be  used. 

lb.  Mucking  in  small  tunnels  may  be  accomplished  using  a  rail- 
mounted,  air-operated,  rocker-type  shovel  that  loads  the  muck  cars.  In 
larger  tunneld,  an  electric-powered  mucker  may  scoop  the  muck  onto  a 
short  conveyor  section  that  dumps  into  the  muck  cars.  The  muck  cars  are 
pulled  by  electric  or  diesel-powered  locomotives;  if  rail  cars  are  used 
in  steep-sloped  tunnels,  they  may  be  winched.  In  very  large  tunnels, 
rubber-tired  equipment  is  usually  chosen  for  muck  loading  and  hauling. 
Tunnels  driven  with  a  shield 

17.  Shield-driven  tunnels  get  their  name  from  a  steel  plate 
shaped  to  fit  the  outside  dimensions  of  the  tunnel.  The  shield  is  used 
to  prevent  loose  material  from  flowing  or  running  into  the  excavation 
and  must  be  jacked  against  the  face.  The  miners  excavate  the  face 
work  under  the  front  section  of  the  shield,  while  supports  are  erected 
inside  the  rear  section  of  the  shield.  As  the  face  is  excavated,  the 
shield  is  jacked  forward  and  slides  past  the  previously  erected  sup¬ 
ports.  Tunnel  support  is  transferred  from  the  shield  to  the  supports 
that  may  be  cast  iron,  steel,  or  precast  concrete  segments.  The  annular 
space  left  by  the  thick  shield  plate  is  filled  with  pea  gravel  and 
grouted  soon  after  jacking  the  shield  forward.  The  use  of  a  shield  is 
dictated  by  poor  ground  that  cannot  be  safely  mined  otherwise.  In  run¬ 
ning  ground,  breastboarding  at  the  face  is  required. 

Tunnels  driven  under  air  pressure 

18.  Tunnels  driven  through  soft  ground  below  the  water  table  or 
through  crushed  water-bearing  rock  zones  require  the  use  of  compressed 
air  in  conjunction  with  the  shield  and  partial  or  full  breast  boards  at 
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the  face.  The  air  pressure  is  maintained  by  use  of  an  air  lock  in  the 
rear  of  the  shield  or  at  the  portal.  Sufficient  pressure  to  balance  the 
hydrostatic  head  is  maintained  forward  of  the  air  lock.  Work  hours  are 
restricted  proportional  to  the  air  pressure  used,  and  a  medical  lock 
with  a  full-time  attendant  must  be  provided.  Costs  are  proportionately 
higher  for  compressed  air  tunnels.  The  West  Germans  have  recently  in¬ 
troduced  a  successful  slurry  shield,  the  Hydrashield,  which  balances  the 
hydrostatic  pressure  at  the  face  with  a  bentonite  slurry  under  pressure 
and  thus  eliminates  the  need  for  compressed  air  work. 

19.  Tunnels  driven  by  boring  machine  (mole).  This  method  of 
excavation  replaces  the  cycle  of  drill,  blast,  and  muck  with  (nearly) 
continuous  simultaneous  excavation  and  mucking.  In  soft,  competent  rock 
conditions,  moles  make  faster  progress  than  conventional  driving  methods. 
The  mole  or  tunnel  boring  machine  has  a  round  rotating  or  oscillating 
cutterhead  that  may  be  fitted  with  any  of  several  types  of  bits,  teeth, 
or  discs,  depending  on  the  type  of  material  encountered.  The  material 
removed  by  the  cutter  is  scooped  from  the  invert  by  a  muck  bucket  that 
rotates  with  the  cutterhead.  The  muck  is  dumped  on  a  conveyor  belt  and 
carried  away  from  the  face,  either  to  the  shaft  or  portal  or  to  muck 
cars  behind  the  mole.  Moles  may  be  used  with  shields  in  incompetent 
materials  or  soft  ground,  but  better  progress  is  made  in  soft,  consis¬ 
tent  rock  where  a  shield  is  not  necessary.  Excavation  in  very  hard  rock 
wears  down  the  bit  very  quickly;  stratified  rock  or  mixed  face  results 

in  uneven  thrust  and  excessive  bearing  wear  and  can  cause  large  rocks  to 
jam  between  the  tunnel  wall  and  rotating  cutterhead. 

Tunnel  Estimating 

20.  Tunnel  estimating  is  the  art  of  conceiving  a  job  on  paper 
and  properly  evaluating  the  cost  of  planned  construction.  The  assump¬ 
tions  and  decisions  that  form  the  basis  for  cost  computations  are  made 
by  comparing  cost  records  of  similar  completed  projects,  assuming  a  syn¬ 
thetic  organization  of  men  and  equipment  and  rates  of  material  usage  and 
progress,  or  a  combination  of  the  two.  A  cost  estimate  can  be  prepared 


10 


manually  or  with  the  aid  of  a  computer,  but  the  basic  decisions  that 
must  be  made  are  identical  and  often  both  methods  are  used  as  a  check. 

To  develop  a  synthetic  model,  the  method  of  excavation  must  be  chosen, 
types  and  amount  of  equipment  selected,  progress  rates  assumed,  crew 
sizes  and  makeup  decided,  and  man-days  required  to  accomplish  the  job 
estimated.  The  actual  estimate  quantifies  the  cost  of  the  various  in¬ 
puts,  including  equipment,  labor,  materials,  supplies,  supervision,  and 
escalation.  Normal  contingencies,  risk,  interest,  and  profits  are  not 
included  in  the  estimate  but  compose  the  markup  added  to  the  estimate  to 
arrive  at  a  bid  price.  Engineering  design  and  inspection  are  usually 
absorbed  by  the  owner  and  are  not  included  in  the  estimate.  On  a  manual 
estimate,  an  estimator  sets  down  all  computations  and  afterwards  pre¬ 
sents  the  quantities  and  costs  on  a  spread  sheet  that  must  conform  to 
the  owner's  format  in  the  request  for  bids.  For  a  computer  estimate, 
production  rates,  crew  sizes,  wage  rates,  and  work  hours  are  among  the 
necessary  inputs  to  produce  a  tabulated  cost  estimate.  There  are  dis¬ 
advantages  and  advantages  of  each  method.  Probably  no  contractor  has 
ever  submitted  a  tunnel  bid  prepared  solely  by  a  computer;  a  manual  es¬ 
timate  gives  them  more  confidence  in  the  assumptions  and  calculations 
used  and  serves  as  a  check  on  the  black  box.  On  the  other  hand,  the 
computer  method  allows  an  owner's  representative  to  evaluate  many  alter¬ 
natives  to  optimize  route  selection,  support  design,  depth  of  cover, 
shape,  excavation  method,  and  other  factors  to  arrive  at  the  most  eco¬ 
nomically  feasible  option  in  the  time  available.  A  hand-calculated 
estimate  may  then  be  prepared  on  the  most  promising  alternatives  as  a 
check.  Obviously,  then  the  selection  of  the  method  depends  on  the  in¬ 
tended  use  of  the  estimate. 

21.  The  following  paragraphs  present  a  discussion  of  the  proce¬ 
dures  for  preparing  a  detailed  manual  estimate,  a  preliminary  estimate 
using  unit  cost  data,  and  the  use  of  cost  curves. 

Manual  estimates 

22.  The  steps  involved  in  preparing  a  detailed  manual  estimate 
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follow: 


a_.  Obtain  and  study  plans  and  specifications. 

Js.  Inspect  site. 

c^.  Review  aerial  photographs,  geological  reports,  and  bor¬ 
ing  logs. 

cL  Tabulate  quantity  takeoffs. 

e_.  Obtain  quotes  from  suppliers,  insurance  and  bonding  com¬ 
panies,  and  subcontractors. 

_f.  Determine  wage  rates. 

£.  Prepare  construction  schedule. 

h.  Select  excavation  method. 

_i.  Select  equipment. 

j_.  Estimate  cost  of  equipment  rental  or  purchase. 
k_.  Determine  crew  size  and  makeup. 

1_.  Estimate  progress  rates. 

in.  Estimate  cost  of  aboveground  development. 

n_.  Estimate  cost  of  tunnel  excavation  supplies. 

ck  Estimate  cost  of  tunnel  excavation  labor. 

2_.  Estimate  cost  of  support  and  lining  supplies. 

Estimate  cost  of  plant. 

_r.  Estimate  cost  of  concrete-lining  labor. 

j5.  Estimate  direct  cost  of  other  bid  items. 
t_.  Tabulate  all  direct  costs. 
jj.  Estimate  indirect  costs. 

;v.  Estimate  camp  costs, 
w.  Estimate  escalation. 

3t.  Tabulate  total  estimated  costs  of  project  in  format  re¬ 
quired  by  request  for  bid. 

All  the  steps  above  are  interrelated  and  must  be  checked  back  and  forth. 
For  example,  the  initial  construction  schedule  may  be  altered  several 
times,  but  the  contract  end  date  must  be  adhered  to.  Thus  men  and 
equipment  may  have  to  be  added  to  accomplish  some  tasks  more  quickly. 

The  plans  and  specifications  will  be  referred  to  countless  times,  i.e., 
after  the  site  visit  to  check  the  impact  of  new  information  gained  about 
access,  labor  wage  rates  and  availability  and  their  impacts  on  partic¬ 
ular  excavation  methods,  blasting  restrictions,  availability  and  cost  of 
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power  and  water,  etc.  The  review  of  geological  information  may  indicate 
that  a  favored  method  of  excavation  or  groundwater  control  will  not  work, 
necessitating  changes.  It  is  a  good  idea  to  prepare  a  checklist,  and  as 
each  step  is  completed,  compare  them  to  determine  if  there  are  conflicts 
that  must  be  resolved  before  moving  to  the  next  step.  Quantity  takeoffs 
must  be  calculated  for  each  supply  item  or  task  and  tabulated  for  conve¬ 
nient  identification  and  cost  of  every  aspect  of  the  job.  Requests  for 
quotations  from  equipment  and  materials  suppliers  are  made  at  the  earli¬ 
est  possible  date,  even  before  the  excavation  method  is  chosen,  to  nail 
down  these  costs.  These  quotes  serve  as  the  basis  for  evaluating  alter¬ 
native  methods  and  equipment. 

23.  Wage  rates  and  availability  are  usually  determined  during 
the  site  visit,  but  they  may  change  before  the  contract  is  awarded  and 
so  must  be  watched  carefully.  Selection  of  the  excavation  method  sets 
the  stage  for  many  of  the  subsequent  decisions  and  must  be  carefully 
weighed  against  required  equipment  purchases  versus  equipment  currently 
owned,  required  crew  makeup,  manufacturer's  lead  time,  and  a  host  of 
other  factors.  Currently  owned  machines  are  always  favored  if  they  are 
suitable  for  the  tasks.  Selection  of  muck  haulage  and  service  equipment 
is  not  much  affected  by  the  excavation  method.  Tunnel  length,  size, 
shape,  distance  to  disposal,  and  time  allowed  for  completion  do  have  a 
major  impact  on  types  and  numbers  of  equipment  used.  Similarly,  crew 
size  and  makeup  are  dependent  on  methods  and  equipment  used.  The  ad¬ 
vance  rates  that  can  be  achieved  are  tied  to  all  these  factors;  the 
slowest  unit  of  production  is  the  controlling  one.  For  example,  a  tun¬ 
nel  boring  machine  may  be  capable  of  excavating  50  ft  per  shift,  but  if 
it  is  mated  with  a  muck  removal  system  that  is  slower  or  breaks  down  of¬ 
ten,  the  mole  will  never  develop  that  rate.  In  drill  and  blast  tunnels, 
the  length  of  rounds  must  be  balanced  against  the  capacity  and  cycle 
time  of  the  muck  removal  system.  Juggling  men  and  equipment,  length  of 
rounds,  etc.,  may  be  required  to  achieve  the  best  possible  efficiency. 

In  some  cases,  more  men  and  equipment  might  speed  up  mucking,  but  lim¬ 
ited  work  space  in  small  tunnels  might  preclude  this  effort.  In  such  a 
case,  multiple  headings  or  alternating  headings  may  be  advantageous.  To 
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achieve  a  synchronized  efficient  advance  rate  with  the  least  possible 
idle  time  is  one  of  the  most  difficult,  yet  necessary,  tasks  in  tunnel 
construction.  It  cannot  be  done  with  any  finality  on  paper  but  requires 
continuous  monitoring  and  the  ability  to  adapt  quickly  to  changing 
conditions . 

24.  When  the  best  estimate  of  progress  rates  has  been  arrived 
at,  the  next  step  is  to  tally  the  direct  and  indirect  costs  of  each  pay 
item.  Direct  costs  may  be  arranged  in  the  following  categories  after 
the  equipment,  crew  makeup,  advance  rates,  and  quantities  have  been  set: 

a_.  Access  and  supply  logistics  (mobilization). 

J).  Tunnel  excavation. 

(1)  Labor. 

(2)  Materials. 

(3)  Equipment. 

c.  Primary  support. 

(1)  Labor. 

(2)  Materials. 

(3)  Equipment. 

cl.  Lining. 

(1)  Labor. 

(2)  Materials. 

(3)  Equipment. 

<e.  Demobilization  and  salvage. 

25.  Indirect  costs  must  be  developed  next.  Checklists  are  time¬ 
saving  aids  for  this  task  and  can  be  used  for  insurance,  plant,  field 
overhead,  and  office  supervision.  The  effects  of  inflation  and  the  data 
used  by  the  contractor  to  develop  a  cash-flow  forecast  must  be  checked. 
In  some  instances,  the  figures  may  be  juggled  to  produce  a  more  favor¬ 
able  cash  flow  during  the  early  stages  of  the  contract.  This  practice 
is  known  as  unbalancing  the  bid.  An  owner's  representative  is  less  con¬ 
cerned  about  cash  flow  but  must  consider  the  yearly  budget  requests  and 
needs  of  the  owner  if  the  tunnel  is  publicly  owned.  (Most  tunnels  are 
owned  by  state  and  federal  agencies).  The  estimated  costs,  when  to¬ 
taled,  will  be  the  basis  of  the  build-no  build  decision  by  the  owner  and 
the  bid-no  bid  decision  by  the  contractor.  In  addition,  the  contractor 
must  consider  other  market  conditions,  including  interest  costs,  minimum 
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attractive  rate  of  return,  business-mix  objectives,  key  personnel,  etc., 
and  balance  this  job  against  other  tunnel  jobs  or  other  heavy  construc¬ 
tion,  each  with  its  own  set  of  potential  rewards  and  penalties. 

26.  The  steps  required  to  manually  estimate  the  cost  of  tunnel 
construction  have  been  outlined.  According  to  personnel  in  large  tunnel 
construction  firms,  the  average  time  required  to  prepare  a  detailed  tun¬ 
nel  estimate  is  three  weeks  and  ranges  from  two  weeks  to  two  months. 

Unit  cost  method 

27.  The  unit  cost  method  of  estimating  tunnel  costs  is  a  well- 
accepted  simple  technique  for  making  preliminary  or  planning  estimates. 
It  relies  on  historical  records  of  similar  jobs.  Basically,  the  esti¬ 
mator  prepares  quantity  takeoffs  for  the  tunnel  and  determines  the  unit 
cost  of  each  item  by  comparison  with  other  similar  tunnels.  These  costs 
may  or  may  not  be  adjusted  for  inflation,  regional  differences,  etc. 

The  sum  of  the  unit  cost  times  the  quantities  of  each  item  yields  the 
tunnel  cost.  Obviously,  this  simplified  method  may  not  reflect  the  ac¬ 
tual  cost  for  several  reasons:  (a)  differences  in  locations,  construc¬ 
tion  methods,  special  site  conditions,  etc.,  are  not  accounted  for  and 
may  not  be  recognized;  (b)  if  unit  cost  data  are  developed  from  the 
three  lowest  bids,  as  is  often  the  case,  the  common  practice  of  unbal¬ 
ancing  bids  will  distort  the  unit  costs.  However,  the  total  cost  may 
not  be  affected  much  because  an  unbalanced  bid  is  just  a  redistribution 
of  the  total  cost  to  improve  cash  flow  in  the  early  stages  of  a  project; 

(c)  unless  adjustments  are  made  for  inflation,  large  errors  may  result; 

(d)  bidding  climate  influences  are  not  accounted  for,  such  as  the  number 
of  prospective  bidders  and  number  of  competing  jobs.  However,  only  the 
profit  margin  would  be  affected,  and  since  profit  margin  ranges  from 
about  3  to  20  percent,  this  omission  would  not  negate  the  unit  cost 
method's  usefulness  for  preliminary  estimates  or  comparison  of 
alternatives. 

Tunnel  cost  curves 

28.  One  of  the  earliest  reported  developments  to  improve  the  re¬ 
liability  and  reduce  the  time  required  for  preliminary  tunnel  estimates 
was  made  by  the  California  Department  of  Water  Resources  (1959).  Their 


need  for  reliable  preliminary  estimates  to  aid  in  route  selection  led  to 
the  formulation  of  a  family  of  "cost  curves."  Case  histories  were  ana¬ 
lyzed  to  determine  the  cost  impact  of  all  factors  involved  in  tunneling. 
They  considered  four  major  construction  items  affecting  cost:  excava¬ 
tion,  support,  dewatering,  and  lining.  For  each  item,  a  family  of  cost 
curves  was  developed.  Each  curve  represented  a  specified  geological 
classification.  The  curves  were  plotted  as  item  cost  per  foot  of  tunnel 
versus  tunnel  diameter.  This  work  was  done  before  moles  and  other  tun¬ 
neling  advances  were  widely  used.  Consequently,  the  curves  were  repre¬ 
sentative  of  costs  for  conventionally  (drill  and  blast)  excavated  tun¬ 
nels,  using  standard  steel-set  support  design  (Proctor  and  White  1946). 
Soft  ground,  cut  and  cover,  and  mole  excavation  were  not  considered. 

Only  circular-shaped  tunnels  were  analyzed.  The  cost-per-foot  figures 
were  lump  sum,  not  subdivided  for  labor,  equipment,  and  materials,  or 
profit,  contingency,  and  overhead.  Prior  to  the  years  of  rapid  infla¬ 
tion,  these  curves  served  their  purpose  quite  well.  The  estimator  sim¬ 
ply  entered  the  family  of  curves  with  a  known  tunnel  diameter  and  esti¬ 
mated  the  length  of  each  representative  geological  classification,  then 
found  the  appropriate  cost  per  foot  for  his  tunnel.  The  cost  per  foot 
multiplied  by  the  length  was  the  total  segment  cost.  Segment  costs  were 
summed  over  the  tunnel  length  to  produce  a  total  estimated  cost  of  the 
tunnel.  Inflation  and  advancing  technology  eventually  eroded  the  reli¬ 
ability  of  the  curves,  but  they  were  a  starting  point  for  estimators  in 
following  years. 

Computer  methods 

29.  The  steps  involved  in  preparing  a  tunnel  cost  estimate  with 
the  aid  of  a  computer  are  identical  with  those  required  for  a  manual  es¬ 
timate.  The  input  data  must  conform  to  the  requirements  of  the  particu¬ 
lar  model  being  used.  Some  models  have  subroutines  built  into  them  that 
allow  crew  sizes,  advance  rates,  lining  thickness,  and  ground  control 
measures  to  be  calculated  internally.  These  internal  calculations  may 
be  suppressed  by  direct  input  of  the  required  parameters,  manually  over¬ 
riding  the  calculated  value.  Other  models  require  that  all  information 


be  input,  just  as  in  a  manual  estimate.  Four  computer  models  were 


investigated  during  this  study.  One  important  aspect  to  remember  is 
that  although  computer  models  unquestionably  save  time  on  computations, 
the  data-gather ing  phase  is  not  shortened  and  represents  the  bulk  of  the 
time  required  for  tunnel  estimating.  Important  features  of  each  of  the 
four  models  are  discussed  in  the  following  paragraphs. 

COSTUN  -  A  Computer  Program  for  Estimating  Costs  of  Tunneling 

30.  COSTUN  was  developed  in  1973  by  Harza  Engineering  Company 
under  contract  to  the  Federal  Railroad  Administration  (FRA),  U.  S.  De¬ 
partment  of  Transportation.  Complete  documentation  of  this  program  is 
contained  in  Report  No.  FRA-ORD&D- 74-16  (Wheby  and  Cikanek  1973).  The 
report  is  available  through  the  National  Technical  Information  Service, 
Springfield,  Virginia  22151.  Permission  by  the  FRA  to  use  excerpts 
from  this  report  is  gratefully  acknowledged.  The  COSTUN  program  has 
been  used  extensively  by  Harza  in  their  tunnel  work  and  has  seen  consid¬ 
erable  use  by  the  U.  S.  Army  Engineer  Division,  New  England,  on  the  Park 
River  Tunnel  Project.  Its  use  on  this  project  was  reported  by  Blackey 
(1979).  EM  1110-2-502  (Dept,  of  the  Army,  OCE,  1980),  Part  II,  Chap¬ 
ter  14,  presents  a  method  for  making  rough  planning  estimates  for  tunnels. 
The  cost  calculations  were  based  on  cost  curves  for  different  size  tun¬ 
nels  and  various  geologic  conditions  developed  using  the  COSTUN  program. 
The  method  described  herein  allows  the  user  to  develop  a  more  comprehen¬ 
sive  and  accurate  estimate.  It  must  be  remembered,  however,  that  the 
accuracy  of  any  estimating  method  depends  on  the  accuracy  of  the  required 
input  data. 

Program  philosophy  and 
general  characteristics 

31.  The  documentation  report  (Wheby  and  Cikanek  1973)  states  that 
the  program's  philosophy  is  to  duplicate  the  thought  and  reasoning  pro¬ 
cesses  that  take  place  in  the  detailed  planning,  design,  quantity  take¬ 
offs,  and  estimate  of  cost  of  an  actual  tunnel  and  shaft  system.  To 
achieve  this  goal,  construction  operations  that  affect  cost  were  divided 
into  twelve  components: 
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£.  Excavation  setup, 
b.  Excavation. 

£.  Muck  loading, 
ch  Muck  transporting. 

£.  Muck  hoisting. 
f_.  Muck  disposal. 

£.  Supports. 

_h.  Lining. 

i^.  Lining  formwork. 

j_.  Grouting. 

_k.  Pumping. 

_1.  Air  conditioning. 

Each  of  these  cost  components  was  subdivided  into  labor,  materials,  and 
equipment  cost  subcomponents.  Tunnels  and  shafts  are  considered  sepa¬ 
rately  in  the  program,  but  a  similar  division  of  cost  components  applies. 
The  program  was  intended  to  have  general  application;  therefore,  fixed 
values  were  not  assigned  to  these  project  dependent  components.  Rather, 
matrices  of  unit  costs  were  developed  for  each  component  and  subcompo¬ 
nent  over  a  wide  range  of  tunneling  conditions,  and  equations  were  fit 
to  these  matrices  and  programmed.  These  unit  costs  were  developed  by 
studying  past  tunnel  jobs,  as  well  as  current  practices,  and  assuming 
synthetic  organizations  of  men  and  equipment  for  various  types  and  sizes 
of  tunnel-shaft  systems.  Unit  costs  were  based  on  1969  Chicago  prices 
for  labor,  equipment,  and  materials.  Therefore,  adjustments  must  be 
made  for  other  times  and  locations.  These  cost  adjustment  factors  must 
be  provided  by  the  user  (guidelines  are  given  herein)  and  consist  of  ad¬ 
justments  for  labor,  materials,  equipment,  and  regional  productivity 
differences.  In  addition,  contractor's  profit  and  overhead  are  required 
user  input.  The  program  does  not  consider  the  cost  of  any  aboveground 
operations  except  cut  and  cover  construction.  Consequently,  the  costs 
of  access  roads,  foundation  underpinning,  portal  excavation,  mitigation 
costs  for  loss  of  business  revenue,  traffic  detours,  right-of-way 
acquisition,  and  utility  relocations  must  be  separately  calculated  and 
added  to  the  COSTUN  estimate.  Likewise,  costs  of  architectural  finish, 
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lighting,  permanent  ventilation,  long-term  pumping,  and  roadway  or  track 
construction  must  be  separately  estimated,  where  applicable,  and  added 
to  the  estimate.  Since  these  costs  and  mobilization  and  demobilization 
costs  may  be  quite  significant,  COSTUN  is  not  recommended  for  estimating 
small  jobs.  In  addition,  COSTUN  estimates  would  be  inapplicable  to  one- 
of-a-kind  jobs  where  innovative  or  unique  equipment  or  techniques  were 
used,  for  which  there  was  no  precedent  when  COSTUN  was  developed.  In 
its  defense,  however,  manual  estimates  for  these  jobs  would  probably  be 
only  slightly  more  accurate  because  they  too  base  advance  rates  on  as¬ 
sumptions  from  precedents. 

32.  Factors  affecting  the  cost  of  a  tunnel  were  grouped  into 
three  broad  categories: 

<1.  Site  characteristics. 

b.  Design  requirements. 

£.  Construction  methods. 

The  variable  factors  within  each  category  must  be  assigned  values  that 
form  the  input  data.  Input  data  for  a  tunnel-shaft  system  are  stored  by 
tunnel  reach  and  segment  numbers  and  shaft  and  segment  numbers.  A  reach 
is  defined  as  any  number  of  contiguous  segments  driven  from  a  single 
heading.  (The  number  of  reaches  is  equal  to  the  number  of  faces  worked.) 
A  segment  is  defined  as  a  continuous  length  of  tunnel  or  shaft,  within 
which  all  the  factors  affecting  cost  must  be  constant.  The  user  must 
decide  when  the  values  of  a  particular  factor  may  be  averaged  over  a 
given  distance  and  when  a  new  segment  must  be  created. 

33.  Design  requirements  and  construction  methods  change  abruptly 
when  they  change  at  all,  so  there  is  no  problem  in  assigning  segment  lim¬ 
its  based  on  these  categories.  However,  site  characteristics  are  seldom 
constant  over  any  appreciable  distance.  Judgment  and  experience  are 
necessary  to  determine  what  constitutes  significant  change  in  a  factor 

or  factors,  requiring  establishment  of  a  new  segment.  A  relatively 
small  change  in  some  factors,  such  as  rock  quality  designation  (RQD) , 
would  necessitate  a  new  segment.  Changes  in  other  factors,  such  as  den¬ 
sity,  are  not  so  critical,  and  moderate  ranges  of  density  may  be  aver¬ 
aged  within  a  segment.  As  part  of  this  study,  the  impact  on  estimated 


costs  resulting  from  varying  the  input  values  of  particular  factors  was 
examined  for  an  expected  range  of  values  while  holding  all  other  factors 
constant.  This  sensitivity  analysis  provided  insight  into  which  factors 
were  critical,  requiring  reliable  quantitative  determination,  and  which 
factors  could  be  estimated  with  minimal  effects  on  cost  if  the  estimates 
were  wrong. 

Site  characteristic  factors 

34.  Some  input  factors  are  not  required  for  certain  tunnel  types 
and  excavation  methods.  Other  factors,  identified  as  optional  input, 
may  be  input,  or  the  user  can  allow  the  computer  to  calculate  the  values. 
Guidance  on  selection  of  parameter  values  is  given  in  the  documentation 
report  (Wheby  and  Cikanek  1973).  The  required  factors  are  as  follows: 

<i.  Rock  quality  designation,  RQD  (Deere  et  al.  1969). 

Jd.  Rock  strength,  unconfined  compressive  strength,  psi,  of 
intact  specimen. 

c_.  Governing  shear  strength,  psf  (the  material  strength 
that  controls  its  behavior) . 

ch  Saturated  unit  weight  of  soil  or  rock,  pcf. 

£.  Soil  angle  of  internal  friction,  PHI,  undrained. 

f_.  Soil  cohesion,  C,  psf,  undrained. 

£.  Equivalent  angle  of  internal  friction,  PHIEQ,  for  mate¬ 
rials  characterized  by  friction  and  cohesion. 

h_.  Effective  grain  size,  D-^,  mm. 

_i.  Groundwater  elevation  -  average  elevation  of  groundwater 
table  for  each  segment. 

j_.  Sound  rock  elevation  -  the  level  below  which  the  mate¬ 
rial  in  a  cut  and  cover  tunnel  can  be  removed  only  by 
drill  and  blast  methods. 

Jc.  Segment  depth,  ft,  from  average  ground  surface  elevation 
to  average  tunnel  elevation. 

1^.  Impervious  layer  elevation  -  elevation  of  clay  layer  be¬ 
low  which  ground  cannot  be  dewatered  by  pumping,  or  be¬ 
low  which  ground  is  sound  rock. 

in.  Permeability,  cm/sec,  for  soft  ground  and  cut  and  cover 
segments . 

ii.  Inflow,  gpm,  at  the  working  face. 
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o_.  Distance  to  disposal,  miles  from  exit  shaft. 

£.  Cost  of  disposal  site,  dollars  per  acre, 
c^.  Rock  or  soil  temperature,  degrees  Fahrenheit. 

_r.  Air  temperature,  degrees  Fahrenheit. 

Design  requirement  factors 

35.  Required  input  factors  are  listed  below  with  options  under 
the  factors.  The  reader  is  again  referred  to  the  documentation  report 
for  complete  descriptions  and  definitions. 

a_.  Tunnel  or  shaft  type. 

(1)  Underground  heading. 

(2)  Cut  and  cover. 

_b .  Shape . 

(1)  Circle. 

(2)  Horseshoe. 

(3)  Baskethandle  (shape  similar  to  horseshoe  but  with 
height  approximately  one-half  that  of  same  width 
horseshoe)  . 

(4)  Square. 

(5)  Single-level  cut  and  cover  box. 

(6)  Double-level  cut  and  cover  box. 

£.  Size. 

(1)  Characteristic  finished  inside  dimension.  Limiting 
tunnel  and  shaft  sizes  that  may  be  run  on  COSTUN  are 
minimum  10-ft  and  maximum  40-ft  finished  diameters. 

(2)  Characteristic  nominal  excavation  dimension. 

(3)  Characteristic  nominal  excavation  dimension  plus 
overbreak. 

jd.  Slope  -  tunnel  slope  up  to  26  percent  may  be  run  on 
COSTUN  (There  are  limits  on  the  use  of  certain  muck 
hauling  methods  for  steep  slopes;  e.g.,  rail  muck  cars 
cannot  be  used  if  the  slope  is  greater  than  5  percent.). 

e_.  Hoisting  height. 

_f .  Reach  length. 

£.  Side  slope  (for  cut  and  cover  tunnels). 

_h.  Stability  number  -  based  on  Terzaghi's  Tunnelman's 
Cround  Classification  System  and  stand-up  time 
(Terzaghi  1950). 

Construction  method  factors 

36.  Site  characteristics  and  design  requirements  strongly  influ¬ 
ence  the  choice  of  construction  methods,  but  some  latitude  exists.  All 
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other  things  being  equal,  a  contractor  will  choose  methods  with  which  he 
is  familiar  and  that  allow  maximum  use  of  equipment  presently  owned. 
Three  of  the  factors  listed  below  are  required  user  input  and  three  are 
optional;  if  no  value  is  input,  COSTUN  will  calculate  them  or  use  a  de¬ 
fault  value,  as  explained  below. 

a_.  Construction  work  week  -  optional.  If  no  value  is  input 
by  the  user,  COSTUN  uses  a  6-day,  24-hr/day  work  week. 

b_.  Soft  ground  stabilization  method  -  optional.  COSTUN 
will  select  the  most  suitable  option  for  particular 
ground  conditions  if  not  input  by  the  user. 

c_.  Excavation  method  -  required  input.  Options  are  conven¬ 
tional  (drill  or  blast),  mole  (tunnel  boring  machine), 
cut  and  cover,  hand  excavation,  and  ripper  excavation. 

In  soft  ground,  the  use  of  a  shield  is  assumed  by  COSTUN 

cL  Muck  transport  method  -  required  input.  Options  consid¬ 
ered  are  conveyor,  trucks,  rail  cars,  and  combinations 
of  conveyor  and  trucks.  Limiting  slope  for  the  use  of 
rail  cars  is  _+  5  percent;  if  used  on  steeper  slopes, 
they  must  be  winched.  Trucks  cannot  be  used  in  com¬ 
pressed  air  or  in  tunnels  with  height  less  than  16  ft. 
Conveyors  are  permissible  in  all  cases. 

e~.  Advance  rate  -  optional  input.  If  not  input  by  the  user 
COSTUN  will  calculate  for  each  segment  based  on  advance 
rate  equations  developed  from  previous  jobs  and  equip¬ 
ment  manufacturer's  specifications.  Appropriate  adjust¬ 
ments  are  made,  based  on  work  hours,  productivity  loss 
during  start-up,  or  when  changing  methods  or  starting  a 
new  segment  or  reach.  Advance  rate  is  one  of  the  most 
critical  input  factors  affecting  the  final  cost  estimate 
and  should  be  considered  carefully,  whether  calculated 
by  COSTUN  or  input  by  the  user. 

f_.  Lining  and  support  -  required  input.  Supports  are  de¬ 
fined  as  the  primary  means  of  ensuring  stability  of  the 
excavation.  Options  include  rockbolts,  wire  mesh  and 
shotcrete,  steel  sets  and  lagging,  or  segmental  liners 
made  of  steel,  precast  concrete,  or  cast  iron  for  under¬ 
ground  headings.  For  cut  and  cover  construction,  slurry 
walls  or  soldier  piles  and  lagging  may  be  used.  Lining 
is  the  secondary  support.  Its  purpose  is  to  protect  the 
primary  support  against  deterioration,  as  well  as  to  en¬ 
hance  hydraulic  properties  in  water  tunnels.  In  COSTUN, 
the  criteria  presented  by  Deere  et  al.  (1969)  have  Li_en 
adopted  for  support  and  lining  design.  If  other  crite¬ 
ria  are  used  in  design,  the  COSTUN  values  might  not  con¬ 
form  to  actual  quantities  and  costs.  Equations  used  by 
COSTUN  in  selecting  the  support  and  the  lining  type  and 


thickness  are  detailed  in  the  text.  Lining  thickness 
and  type  may  be  input  directly  by  the  user,  if  desired. 

37.  Some  factors  or  operations  that  may  vary  in  actual  tunnel 
construction  were  assumed  constant  based  on  accepted  practice  in  1970. 
These  factors  are  discussed  in  detail  in  the  documentation  report  and 
include : 

a_.  Method  and  timing  of  lining  erection. 

Jb.  Selection  of  specific  equipment  and  production  rates. 

c_.  Range  of  conditions  through  which  various  methods  are 
applicable . 

cM  Shaft  inflow  control  methods. 

38.  The  tunnel  program  philosophy  and  general  structure  have 
been  presented.  Actual  user  instructions  for  preparing  a  computer  tun¬ 
nel  cost  estimate  using  COSTUN  are  presented  in  Appendix  A. 

TCM  -  Tunnel  Cost  Model 


39.  The  tunnel  cost  model  (TCM)  was  developed  in  1973  in  its 
first  phase*  by  researchers  in  the  Civil  Engineering  Department  at 
Massachusetts  Institute  of  Technology  (MIT)  for  the  National  Science 
Foundation's  RANN  (Research  Applied  to  National  Needs)  Program.  Permis¬ 
sion  by  Dr.  Michael  Markow,  MIT,  to  summarize  the  project's  development 
is  gratefully  acknowledged.  Complete  documentation  of  the  development, 
applications,  and  user  instructions  is  contained  in  a  comprehensive  se¬ 
ries  of  MIT  publications. 

Program  philosophy  and 
general  characteristics 

40.  TCM  is  a  rather  large  computer  program,  written  in  PL/I  (IBM 
Machine  Language  I),  and  is  run  on  an  IBM  370/168  at  MIT.  Reported  stor¬ 
age  requirements  range  to  500K  for  the  largest  tunnel  modeled.  Subrou¬ 
tines  accompanying  TCM  require  region  sizes  up  to  600K  in  which  to 
compile . 


*  A  more  comprehensive  version  was  developed  by  Moavenzadeh  and  Markow 
(1978).  Reported  changes  and  improvements  are  discussed  in  this  re¬ 
port  in  the  sections  in  which  they  apply. 
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41.  The  "Summary  Report"  (Moavenzadeh  et  al.  1974a)  states,  "TCM 
was  developed  in  an  attempt  to  improve  the  assessment  of  uncertainty  in 
rock  tunnel  cost  estimates."  All  tunnel  estimators  try  to  assess  risk 
and  uncertainty  on  a  job;  their  method  usually  consists  of  comparing  the 
current  job  with  similar  previous  ones,  detailed  assessment  of  plans  and 
specifications,  and  using  their  experience  and  intuition  to  make  subjec¬ 
tive  judgments  about  job  risks.  The  philosophy  behind  TCM  was  to  pro¬ 
vide  a  method  to  quantitatively  assess  the  impact  of  each  item  of  uncer¬ 
tainty  on  costs  and  time.  To  achieve  this  goal,  the  model  incorporates 
probability  and  statistics  concepts  that  allow  the  user  to  subjectively 
specify  the  degiee  of  confidence  he  has  in  each  piece  of  input  data. 

For  example,  instead  of  drawing  up  one  geologic  profile  with  fixed  val¬ 
ues  of  strength,  RQD,  etc.,  for  each  rock  unit,  the  user  may  supply  sev¬ 
eral  possible  values  for  each  parameter  used  to  describe  a  particular 
rock  unit,  with  corresponding  subjective  probabilities  assigned  to  each 
value.  The  computer  model  consists  of  three  main  components: 

A  geological  submodel. 

Jj.  A  tunnel  simulator. 
c_.  A  construction  submodel. 

Geological  submodel 

42.  The  geological  submodel  stores  input  data  according  to  the 
tunnel  segment  and  rock  unit.  Unlike  other  computer  models,  more  than 
one  rock  unit  or  type  may  be  assigned  to  each  segment.  Each  rock  unit 
must  be  assigned  a  probability  of  occurrence.  Typically,  seven  param¬ 
eters  may  be  used  to  describe  each  rock  unit,  such  as  rock  type,  major 
defects,  RQD,  foliation,  gas,  water  inflow,  and  compressive  strength. 

43.  Fewer  or  more  parameters  may  be  used  as  the  user  sees  fit  to 
describe  the  rock  unit.  This  flexibility  in  segment  and  rock  unit  de¬ 
scriptions  is  made  possible  through  the  use  of  "parameter  trees,"  as 
shown  in  Figure  1.  Typical  values,  possible  states,  and  construction 
consequences  are  presented  in  Table  1  for  parameters  typically  used  to 
form  parameter  trees. 

44.  In  addition  to  the  probabilistic  states  assigned  to  segments, 
the  physical  boundaries  of  the  segments  within  which  these  states  are 


P(SHALE  1)  =  0.2 
PISANDSTONE  1)  =  0.8 


P(SHALE  2)  =  0.4 
PISANDSTONE  2)  =  0.6 


valid  must  be  identified  in  the  input  data.  The  process  of  defining  seg¬ 
ment  limits  and  rock  units  within  segments  is  interdependent.  Regard¬ 
less  of  the  number  of  rock  types  possible  within  a  segment,  the  sum  of 
the  probabilities  of  occurrence  of  each  unit  must  be  1.0.  For  the  exam¬ 
ple  shown  in  Figure  1,  the  probability  of  encountering  shale  1  in  seg¬ 
ment  1  is  set  at  0.2  and  the  probability  of  encountering  sandstone  1  in 
segment  1  is  0.8.  In  addition,  the  sum  of  the  probabilities  of  the 
right  end  nodes  of  each  parameter  tree  must  be  1.0.  The  extreme  right 
node  probabilities  of  parameter  trees  are  obtained  by  cumulative  multi¬ 
plication  of  the  probabilities  along  each  continuous  branch.  For  exam¬ 
ple,  the  probability  of  encountering  shale  1  in  segment  1  with  no  major 
defects,  medium  RQD  (30-70  percent),  low  inflow,  and  low  strength  is 
given  by 

P(Shale  1)  x  P(No  Defects)  x  P(Med  RQD)  x  P(Low  Inflow)  x  P(Low  Strength) 

which  for  the  example  in  Figure  1  is 

P  =  0.2  (0.8  x  0.6  x  0.8  x  o.7) 

=  0.2  (0.2688)  =  0.0538 

A  new  parameter  tree  must  be  created  for  each  rock  unit  within  the  seg¬ 
ment.  In  the  simplified  example  shown,  only  two  rock  units  were  consid¬ 
ered  within  segment  1;  the  most  likely  unit  was  sandstone  with  a  proba¬ 
bility  of  0.8  and  the  least  likely  (P  =  0.2)  was  shale.  Thorough  guide¬ 
lines  for  forming  segments  and  parameter  trees  are  given  by  Vick  (1974), 
Moavenzadeh  (1974b),  and  Reynoso  (1976).  The  interested  reader  is  re¬ 
ferred  to  Benjamin  and  Cornell  (1970)  or  Blum  and  Rosenblatt  (1972)  for 
a  more  comprehensive  treatment  of  probability  and  statistics  for  deci¬ 
sion  making. 

45.  New  tunnel  segments  must  be  created  when  the  user  wishes  to 
change  the  set  of  geological  states  or  associated  probabilities  of  the 
states.  Segments  may  be  independent,  partially  dependent,  or  completely 
dependent.  Complete  independence  is  assigned  to  segments  modeled  with¬ 
out  consideration  of  rock  types  assigned  in  adjacent  segments.  Complete 
dependence  is  assigned  to  segments  whose  parameter  trees  are  totally  de¬ 
pendent  on  those  of  adjacent  segments.  The  most  general  case,  partial 
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dependency,  is  modeled  using  Markov  dependency  tables.  This  case  would 
be  appropriate  for  modeling  the  occurrence  of  a  fault,  for  example, 
where  the  user  feels  that  if  the  fault  is  encountered  in  a  given  segment, 
there  is  an  increased  (or  decreased)  likelihood  of  the  fault  extending 
into  the  next  segment.  The  interested  reader  is  referred  to  Barucha- 
Reid  (1960)  or  Stark  and  Nicholls  (1972)  for  the  theoretical  development 
and  applications  of  Markov  processes.  After  assimilating  the  parameter 
trees  and  Markov  tables  for  segment  relationships,  the  geological  model 
produces  and  stores  a  user-specified  number  of  profiles  to  be  used  by 
the  tunnel  simulator  to  produce  estimates. 

Construction  submodel 

46.  This  component  calculates  unit  times  and  costs  of  each  con¬ 
struction  operation  modeled,  based  on  supplied  input  values  of  construc¬ 
tion  variables.  Major  features  and  functions  of  the  submodel  are: 

a.  Scheduling  procedure  -  to  specify  the  number  and  loca¬ 
tions  of  headings  and  timing  of  operations  at  each 
heading. 

Ja.  Model  of  construction  elements  -  to  describe  the  excava¬ 
tion,  support,  dewatering,  probe  drilling,  and  lining 
cycles  and  interactions. 

£.  Construction  method  specification  -  to  specify  the  meth¬ 
ods  to  be  used  for  particular  geological  conditions  and 
for  each  heading  worked. 

d^.  Construction  parameter  specification  -  to  input  unit 

costs,  times,  productivity  rates,  and  other  related  data. 

£.  Simulation  routines  -  to  compute  cycle  times  and  costs 
for  each  geological  condition  considered. 

Cycles  are  calculated  for  excavation,  mucking,  muck  hauling,  muck  hoist¬ 
ing,  support  installation,  pumping,  grouting,  probe  drilling,  and  lining. 
Aboveground  costs  are  not  considered  by  the  simulation  routines.  When 
modeling  multiple  headings,  construction  operations  are  assumed  to  be 
independent.  This  assumption  is  usually  acceptable  unless  alternating 
faces  are  worked  from  the  same  exit  shaft  or  adit.*  The  model  calcu¬ 
lates  approximate  mobilization  time  and  cost.  It  does  not  consider 

*  The  latest  version  of  TCM  incorporates  provisions  for  modeling  alter¬ 
nating  headings  more  realistically. 


permanent  pumping,  ventilation,  architectural  finish,  or  roadways  in  its 
cost  simulation  routines.  The  construction  submodel  does  not  rely  on 
data  files  for  unit  costs  or  cycle  times  for  any  tunneling  operations. 
All  data  must  be  supplied  by  the  user.  The  amount  of  detailed  user  in¬ 
put  is  rather  large.  Much  of  these  data  could  be  assembled  only  by  an 
experienced  estimator  team.  Owners  or  planners  would  quite  likely  have 
problems  supplying  some  of  the  required  input.  These  data  are  assigned 
values  for  worst  case,  best  case,  and  expected  case.  In  addition,  the 
distribution  that  describes  the  data  may  be  normal,  beta,  or  uniform. 
After  all  user  input  has  been  assimilated,  the  construction  submodel 
computes  cycle  time  and  costs  for  each  construction  operation  modeled. 
Tunnel  simulator 

47.  The  tunnel  simulator  combines  the  profiles  produced  by  the 
geological  submodel  with  the  calculated  cycle  times  and  costs  for  each 
geological  state  and  construction  method  produced  by  the  construction 
submodel  to  calculate  the  total  time  and  cost  required  to  construct  the 
tunnel  through  each  of  these  profiles.  The  results  are  plotted  in  a 
scattergram  such  as  Figure  2.  It  also  produces  a  series  of  progress  re¬ 
ports  showing  detailed  advance  of  tunnel  operations  at  different  times. 
An  optional  file  can  be  used  to  store  individual  simulations  (each  simu¬ 
lation  constitutes  one  tunnel  estimate).  The  individual  results  can  be 
printed  out  and  used  in  statistical  analysis  routines  to  calculate  ex¬ 
pected  cost,  standard  deviation,  etc. 

User  instructions 

48.  As  mentioned  earlier,  TCM  is  a  rather  large  and  complex  com¬ 
puter  program  and  requires  a  computer  with  large  storage  capacity.  Be¬ 
cause  of  its  size  and  the  fact  that  it  is  written  in  PL/I,  it  was  con¬ 
sidered  impractical  to  adapt  it  to  the  WES  computer  system.  The  only 
installation  known  to  the  author  that  currently  has  an  operating  version 
is  MIT,  and  TCM  is  operational  on  the  IBM  370/168  at  MIT.  Computers 
exist  within  the  Corps  and  with  contract  vendors  that  could  accommodate 
the  program.  However,  to  convert  the  program  to  Fortran  IV,  the  comput¬ 
er  language  most  familiar  to  noncomputer  specialists,  would  essentially 
require  writing  a  new  program  patterned  after  TCM,  which  probably  would 


not  be  as  flexible  and  comprehensive  as  the  MIT  version.  The  interested 
reader  can  secure  a  comprehensive  user's  manual  (Reynoso  1975)  from  MIT. 
Therefore,  instructions  for  using  TCM  are  not  presented  in  this  report. 
Applications 

49.  The  program  developers  reported  the  use  of  TCM  to  prepare 
estimates  of  several  tunnels  (Minnot  1974  and  Wyatt  1974).  Normal  prac¬ 
tice  was  to  perform  several  hundred  simulations  for  each  tunnel  to  cover 
all  situations.  The  scattergrams  of  costs  and  time  were  then  statisti¬ 
cally  analyzed  to  yield  the  expected  cost  and  time,  worst  and  best  cases, 
etc.  A  detailed  comparison  of  TCM  estimates  and  actual  costs  was  not 
presented  in  the  MIT  series.  However,  for  the  Harold  D.  Roberts  Tunnel 
in  Colorado,  estimated  advance  rates  varied  significantly  from  actual 
rates.  These  differences  were  attributed  to  discrepancies  between  actu¬ 
al  geology  and  model  input  describing  geology  (Wyatt  1974). 

TM  -  Performance/Cost  Tunneling  Model 

50.  The  performance/cost  tunneling  model  (TM)  was  developed  by 
General  Research  Corporation  for  the  Advanced  Research  Projects  Agency/ 
Bureau  of  Mines  program  in  rock  mechanics  and  rapid  excavation.  Its  de¬ 
velopment  and  application  are  discussed  by  Pietrzak  et  al.  (1972)  and 
Hibbard  et  al.  (1971). 

General  philosophy 

51.  In  general,  the  program  philosophy  lies  somewhere  between 
COSTUN  and  TCM.  COSTUN  employs  empirical  equations  based  on  regression 
analysis  of  previous  tunnel  jobs  to  determine  support  requirements,  de¬ 
watering  requirements,  advance  rates,  etc.  (There  are  provisions  for 
the  user  to  override  the  calculated  values  by  supplying  parameter  values 
he  thinks  are  more  appropriate).  Also,  COSTUN  employs  a  fixed  geology 
model.  The  TCM  program  models  uncertainty  in  its  geology  and  construc¬ 
tion  submodels.  All  variable  parameters  affecting  tunnel  construction 
must  be  input  by  the  user.  In  addition,  the  user  must  supply  subjective 
probability  of  the  occurrence  of  each  variable  state  modeled. 


Ceology  submodel 

52.  TM  employs  a  user  specified  geology  model  (uncertainty  is 
not  accounted  for)  similar  to  COSTL'N,  witli  the  added  capability  of  mod¬ 
eling  geology  in  three  dimensions  or  using  familiar  2-D  profiles.  The 
geology  model  does  not  consider  soil  profiles  or  mixed  face.  For  each 
rock  stratum,  the  model  generates  a  file  of  material  properties  includ¬ 
ing  density,  RQD,  abrasiveness,  unconfined  compressive  strength,  water 
inflow,  and  rock  temperature.  Parameter  values  are  supplied  by  the  user 
for  each  tunnel  segment. 

Tunneling  submodel 

53.  The  tunneling  submodel  simulates  construction  operations  and 
conditions.  The  model  can  simulate  various  full-face  rock  excavation 
methods,  including  innovative  techniques,  but  must  be  supplied  with  very 
detailed  input  to  describe  all  relevant  parameters.  Soft  ground,  cut 
and  cover,  and  mixed  face  cannot  he  simulated  by  TM.  Likewise,  shafts, 
portals,  adits,  and  aboveground  costs  are  not  considered.  Permanent 
pumping,  roadbed  or  track,  permanent  lighting,  and  other  architectural 
finish  items  are  also  omitted  from  consideration.  Advance  rates  are 
computed  using  preprogrammed  empirical  relationships  developed  from  a 
study  of  case  histories.  Construction  progress  reports  are  printed  dur¬ 
ing  simulation  at  user-specified  time  intervals.  These  status  reports 
could  be  valuable  aids  for  monitoring  progress  and  costs  and  correcting 
problems  as  they  occur.  Information  printed  out  includes  heading  posi¬ 
tion,  elapsed  time,  average  advance  rate,  availability,  and  utilization 
factors  for  each  construction  operation  (excavation,  support,  dewatering, 
etc . ) . 

Cost  submodel 

5A.  The  cost  submodel  uses  the  input  unit  cost  values  for  labor, 
materials,  and  equipment,  the  calculated  quantities,  advance  rates,  sup¬ 
port  requirements,  dewatering  and  air  conditioning  requirements,  etc., 
to  calculate  and  tabulate  costs  accrued  for  each  tunnel  increment  (mea¬ 
sured  in  time,  not  distance).  Profit  and  overhead,  which  are  input  by 
the  user,  are  added  to  the  costs.  Cost  status  reports  are  printed  for 
the  same  time  intervals  as  the  performance  reports,  including  the  cost 
and  time  of  the  completed  tunnel. 
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Applications 

55.  The  developers  of  this  model  report  good  correlation  of  cal¬ 
culated  and  actual  values  of  advance  rate,  total  time  of  construction, 
and  cost  for  the  Layout  Tunnel.  This  tunnel,  built  in  1971-72  as  part 
of  the  U.  S.  Bureau  of  Reclamation  (USBUREC)  Strawberry  Aqueduct  System, 
is  approximately  3-1/4  miles  long  and  13  ft  in  diameter.  It  was  moled 
through  hard  sandstone  and  conglomerate.  The  model  is  well  suited  for 
comparison  of  alternatives,  but  its  use  for  detailed  estimates  is  ham¬ 
pered  because  of  the  large  storage  requirements  and  detailed  and  exten¬ 
sive  input  data  requirements. 

TSC/FMA  -  Transportation  Systems  Center/Foster  Miller  Associates  Model 

56.  The  Transportation  Systems  Center/Foster  Miller  Associates 
(TSC/FMA)  computer  model  was  developed  in  1979  through  a  cooperative 
effort  of  the  Underground  Technology  Development  Corporation  and  SKNK 
Company,  under  the  sponsorship  of  the  Urban  Mass  Transportation  Admin¬ 
istration  (UMTA) ,  United  States  Department  of  Transportation  (USDOT) . 
Complete  documentation  of  the  development  and  application  of  the  model 
is  contained  in  a  report  by  Foster  et  al.  (1979).  Copies  are  available 
from  the  National  Technical  Information  Service,  Springfield,  Virginia. 
General  philosophy 

57.  The  program  is  run  on  a  Wang  Model  2200  computer.  Data 
files  are  stored  on  discs.  The  model  consists  of  two  main  data  bases 
and  supporting  computations.  Data  Bank  1  contains  factors  that  describe 
the  amount  of  effort  required  to  accomplish  each  unit  operation.  Data 
Bank  2  contains  unit  costs  of  labor,  equipment,  and  materials  required. 
Unit  effort  data  were  developed  from  analysis  of  20  soft  ground  transit 
tunnels  built  in  the  United  States  in  the  last  10  years.  The  model  is 
applicable  to  soft  ground  transportation  tunnels  and  stations.  Base  or 
reference  unit  cost  data  reflect  conditions  prevailing  in  Washington, 
D.C.,  in  January  1976.  Costs  for  other  times  or  regions  may  be  adjusted 
using  inflation  factors  similar  to  the  method  used  with  COSTUN,  or  the 
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actual  unit  costs  may  be  determined  and  used  in  Data  Bank  2.  Only  exca¬ 
vation  and  lining  for  soft  ground  transit  tunnels  are  considered  in  the 
present  version,  although  the  developers  report  that  it  will  be  revised 
to  make  it  more  comprehensive  as  data  on  other  operations  are  developed. 
Applications 

58.  The  model  has  been  used  on  three  sections  of  the  Washington 
Metropolitan  Area  Transit  Authority  (WMATA)  subway  system.  Section  1 
consisted  of  5393  ft  of  concrete-lined  tunnel  driven  through  moderate 
ground  requiring  some  stabilization,  an  800-  by  75-ft  station,  and  four 
vent  and  fan  structures.  The  section  actually  analyzed  was  2996  ft  of 
tunnel,  excavated  by  a  backhoe  digger  arm  under  a  shield.  The  actual 
construction  costs  were  $5,837,000.  The  FMA  estimate  was  $6,345,000,  or 
8.7  percent  above  actual  cost.  For  the  tunnel  only,  actual  costs  were 
$4,445,000,  and  the  model  estimate  was  $4,332,000,  or  2.5  percent  below 
actual  cost. 

59.  Section  2,  consisting  of  8820  ft  of  tunnel,  was  driven 
through  difficult  ground  and  passed  beneath  several  bridge  piers  and 
abutments.  Excavation  was  accomplished  by  a  backhoe  digger  arm  under  a 
shield.  Steel  segments  served  as  both  primary  support  and  final  lining. 
The  actual  project  costs  were  $33,373,000  for  those  items  considered  by 
the  model,  which  estimated  the  costs  at  $31,017,000,  or  7.1  percent  lower. 
For  tunnel  excavation,  lining,  backfill,  and  grouting,  the  actual  costs 
were  $25,721,000,  and  the  model  estimate  was  $24,648,000,  or  4.2  percent 
lower. 

60.  Section  3  comprised  8115  ft  of  concrete-lined  tunnel,  an  800- 
by  75-ft  cut-and-cover  station,  and  six  vent  and  fan  structures.  The 
section  actually  analyzed  was  3803  ft  long.  Excavation  was  accomplished 
with  a  wheel  excavator  through  good  soft  ground.  Support  was  provided 

by  expanded  ring  beams  and  wood  lagging.  The  actual  cost  for  the  ana¬ 
lyzed  section  was  $6,443,000,  and  the  model  estimate  was  $6,731,000, 
or  4.5  percent  higher.  For  tunnel  costs  only,  the  actual  cost  was 
$4,603,000,  and  the  model  estimate  was  $5,044,00 0,  or  9.6  percent  higher. 

61.  These  results  indicate  that  for  its  intended  applications, 
the  model  provides  estimates  that  are  within  10  percent  of  actual  costs, 
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provided  there  are  good  definitions  of  geology,  excavation  methods,  and 
support  requirements. 

User  instructions 


62.  Complete  instructions  for  using  the  TSC/FMA  model  are  avail¬ 
able  from  the  Transportation  Systems  Center,  Department  of  Transporta¬ 
tion,  Cambridge,  Massachusetts.  Therefore,  instructions  are  not  repeat¬ 
ed  in  this  report. 

Comparison  of  Computer  Models,  Cost  Curves,  and  Manual  Estimates 

63.  The  investigation  of  the  steps  involved  in  estimating  tunnel 
costs  using  all  the  methods  described  above  clearly  indicated  that  there 
is  no  one  best  method  for  all  purposes.  The  choice  of  method  must  be 
based  on  the  end  use  of  the  estimate.  Detailed  manual  estimates  for  fi¬ 
nal  design,  contract  documents,  and  contractor  bids  are  probably  here  to 
stay.  Cost  curves  or  unit  cost  estimates  may  be  useful  for  preliminary 
estimates  and  comparison  of  alternatives.  Computer  models  may  be  used 
to  good  advantage  for  preliminary  planning  estimates,  evaluation  of  al- 

nrnatives,  checks  on  manual  estimates,  and  monitoring  progress.  Table 
presents  the  relative  advantages  of  the  four  models  investigated  during 
this  project.  One  of  the  objectives  of  the  project  was  to  develop  or 
adapt  cost-estimating  aids  that  planners  not  intimately  familiar  with 
tunneling  could  use.  All  things  considered,  COSTUN  meets  these  criteria 
better  than  any  of  the  other  models  studied.  Therefore,  it  was  selected 
for  in-depth  analysis,  using  collected  tunnel  case  histories. 


PART  Ill:  ANALYSIS  OK  CASK  IIISTOKIKS 

64.  One  of  the  problems  in  this  study  was  obtaining  case  histo¬ 
ries  of  tunnels  witli  sufficient  information  to:  (a)  allow  a  meaningful 
comparison  of  the  reliability  of  manually  prepared  cost  estimates  with 
those  generated  by  the  computer  program  COSTl'N,  (b)  allow  a  meaningful 
comparison  of  estimated  and  as-built  costs,  and  (c)  identify  the  factors 
responsible  for  overruns  between  estimated  and  as-built  costs.  After 
much  studying  and  then  discarding  of  several  cases  where  complete  docu¬ 
mentation  was  unavailable,  three  tunnels  were  chosen  that  had  good  docu¬ 
mentation  of  geology,  design,  construction  methods,  and  estimates.  The 
following  paragraphs  present  brief  descriptions  of  each  tunnel,  followed 
by  an  analysis  of  estimated  and  as-built  costs  and  factors  responsible 
for  the  differences  between  the  two. 

Nast  Tunnel 


65.  Nast  Tunnel  was  the  first  tunnel  in  the  United  States  to  be 
driven  through  granite  with  a  boring  machine  (Larson  1975).  Moles  were 
thought  to  be  unsuitable  for  hard  rock  tunnels  prior  to  this  job  because 
of  high  cutter  bit  replacement  costs.  Indeed,  on  this  job  cutter  bit 
costs  amounted  to  over  $1,200,000  on  a  winning  bid  price  of  approximate¬ 
ly  $6,800,000.  Nast  Tunnel  is  a  15,653-f t-long,  10-ft-diam  water  tunnel 
that  was  designed  by  the  USBUREC  and  built  between  ]470  and  1973  in  Pit¬ 
kin  County,  Colorado.  On  this  job  contractors  were  allowed  to  bid  on  a 
drill  and  blast  schedule  and  an  alternative  mole-driven  tunnel  option. 
Nine  bids  were  received,  six  on  the  drill  and  blast  schedule  and  three 
on  the  mole  schedule.  The  winning  contractor  bid  about  the  same  amount 
on  both  options.  The  award  was  made  for  the  schedule  using  the  boring 
machine,  and  a  Memorandum  of  Understanding  was  executed  that  permitted 
the  contractor  to  change  from  mole  driven  to  drill  and  blast  at  his  op¬ 
tion.  Approximately  85  percent  of  the  tunnel  was  moled;  15  percent  was 
conventionally  driven  through  reaches  of  poor  quality  rock. 
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66.  All  information  used  to  develop  and  compare  cost  estimates 
of  Nast  Tunnel  was  provided  by  the  USBUKEC  Engineering  and  Research  Cen¬ 
ter,  Denver,  Colorado.  Their  cooperation  is  gratefully  acknowledged. 
Table  3  summarizes  the  cost  estimates  prepared  by  the  engineer,  various 
contractors,  and  the  COSTUN  computer  model.  All  identifiable  costs  not 
considered  by  the  computer  model  were  subtracted  from  the  total  bids  so 
that  a  meaningful  comparison  could  be  made.  Engineer  estimate  1  and  con¬ 
tractor  bids  1-6  were  for  the  conventional  or  drill  and  blast  excavation 
schedule.  Engineer  "stimate  2  and  contractor  bids  7-9  were  for  the  mole 
excavation  schedule.  Contractor  bids  1  and  7  were  submitted  by  the  same 
contractor,  and  the  bid  price  for  either  option  was  about  the  same. 
Furthermore,  when  all  schedule  items  were  included,  the  bid  prices  were 
identical  for  both  options.  This  contractor  was  awarded  the  contract, 
although  one  other  bid.  No.  8  in  Table  3,  was  apparently  lower.  How¬ 
ever,  when  the  excluded  costs  were  added  back,  this  bid  was  higher  than 
the  winning  bid.  The  winning  bid  was  approximately  33  percent  higher 
than  the  engineer  estimate  for  either  excavation  option.  The  highest 
bid  was  nearly  double  the  engineer  estimate.  There  was  a  45  percent 
spread  between  the  winning  and  the  highest  bid. 

67.  COSTUN  estimates  1-9  were  prepared  using  information  avail¬ 
able  at  bid  time.  COSTUN  estimate  1  represents  the  estimated  construc¬ 
tion  cost  for  the  most  likely  tunneling  conditions,  using  mole  excava¬ 
tion  when  feasible  and  drill  and  blast  excavation  in  poor  rock  zones  and 
near  the  inlet  and  outlet  portals.  The  support  and  lining  types  and 
amounts  used  for  this  estimate  were  those  called  for  in  the  plans  and 
specifications.  The  total  estimated  tunnel  costs  for  this  run  were 
$7,089,000,  or  5  percent  above  the  winning  bid  of  $6,763,000  and  38  per¬ 
cent  above  the  engineer  estimate.  COSTUN  estimates  2-9  could  be  called 
"what  if"  estimates,  in  that  the  major  input  factors  believed  to  affect 
construction  costs  were  individually  examined  while  holding  all  other 
variables  constant  at  the  expected  value.  Pessimistic  and  optimistic 
values  were  assigned  to  each  of  the  major  variables  for  each  tunnel  seg¬ 
ment  and  reach.  Some  of  these  estimates  reflected  genuine  uncertainty 
while  others  were  used  to  test  the  sensitivity  of  costs  to  changes  in  a 
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specific  variabie.  For  example,  runs  2  and  3  were  made  to  determine  the 
construction  cost  impact  of  varying  rock  strength.  The  actual  rock 
strengths  were  known  within  reasonable  limits  from  lab  tests  and  empiri¬ 
cal  correlations,  but  studies  have  shown  that  stand-up  time,  advance 
rate,  mole  cutter  bit  wear,  drill  steel  life,  etc.,  are  at  least  par¬ 
tially  dependent  on  rock  strength,  among  other  things. 

68.  In  run  2,  the  rock  strengths  input  were  25  percent  higher 
than  expected  strengths.  For  most  types  of  structures,  an  increase  in 
strengths  is  welcomed,  but  not  necessarily  for  tunnel  excavation.  High¬ 
er  strengths  are  associated  with  the  harder  crystalline  rocks  that  are 
more  abrasive.  The  results  are  higher  cutter  bit  wear,  more  drill  steel 
breakage,  and  overall  slower  advance  rate,  leading  to  increased  costs. 
For  this  tunnel,  the  estimated  consequences  were  nearly  $500,000  (6  per¬ 
cent)  and  100  working  days  (10  percent)  over  the  estimate  for  most  like¬ 
ly  conditions.  Run  3,  which  used  strengths  25  percent  lower  than  expec¬ 
ted,  resulted  in  estimated  cost  and  time  savings  of  $450,000  (6  percent) 
and  102  working  days  (10  percent)  less  than  the  estimate  for  most  likely 
conditions . 

69.  The  impact  of  variation  in  rock  quality  was  assessed  in 
runs  4  and  5.  These  runs  reflected  genuine  uncertaint  in  the  expected 
rock  joint  frequency,  joint  conditions,  and  degree  of  weathering  for 
which  the  borehole  data  were  lacking.  In  fact,  change  order  No.  8, 
which  provided  for  additional  payment  to  the  contractor  of  $767,000,  was 
directly  related  to  the  occurrence  of  a  major  shear  zone  approximately 
1700  ft  long,  which  had  not  been  detected  by  surface  mapping  or  borings. 
The  tunnel  boring  machine  had  to  be  moved  back  and  the  heading  was  ad¬ 
vanced  through  this  reach  by  the  drill  and  blast  method,  using  closely 
spaced  heavy  steel  sets  for  support.  In  run  4,  pessimistic  values  of 
RQD,  approximately  33  percent  lower  than  the  expected  values,  were  used. 
Estimated  construction  time  increased  22  percent  to  1203  days,  or 

218  days  more  than  the  expected  time  of  985  days.  Estimated  costs  rose 
to  $8,264,000,  or  17  percent  above  the  $7,089,000  expected  cost.  In 
run  5,  RQD  values  33  percent  higher  than  expected  were  input.  The  esti¬ 
mated  cost  reduction  was  $718,000  (10  percent),  while  the  time  was  cut 
12  percent  to  865  days. 


70.  In  runs  6  and  7,  the  cost/time  impact  of  reducing  and  in¬ 
creasing,  respectively,  the  lining  thickness  by  30  percent  of  the  design 
value  was  assessed.  The  specification  of  lining  thickness  is  of  major 
importance  to  the  cost  of  a  tunnel.  The  quantity  of  concrete  that  must 
be  placed  obviously  increases  for  conservative  (thicker)  lining  specifi¬ 
cations.  Additional  cost  and  time  penalties  occur  because  the  volume  of 
rock  that  must  be  excavated  increases  proportionately.  The  larger  the 
tunnel  diameter  and  length,  the  more  serious  are  the  consequences.  Com¬ 
pounding  this  problem  is  the  lack  of  understanding  of  interaction  be¬ 
tween  rock  load  and  deformation  and  transfer  of  the  load  to  the  lining 
and  support. 

71.  For  a  reduction  of  30  percent  in  lining  thickness  (run  6), 
estimated  costs  were  reduced  by  $527,000  (7  percent),  and  construction 
time  was  reduced  by  30  days  (3  percent)  over  the  length  of  the  tunnel. 
This  reduction  represents  a  $33/ft  saving  over  the  design  lining  thick¬ 
ness.  A  30  percent  increase  in  lining  thickness  (run  7)  resulted  in  a 

7  percent  ($484,000)  increase  in  cost  and  a  2  percent  (24  days)  increase 
in  construction  time. 

72.  Computer  estimates  8  and  9  were  made  to  study  the  impact  of 
rock  temperature  in  the  tunnel.  As  expected,  the  results  of  these  runs 
indicated  that  for  the  range  of  temperatures  expected  in  Nast  Tunnel, 
there  was  no  effect  on  cost.  In  deep  tunnels  with  higher  temperatures, 
the  cost  of  ventilation  and  air  conditioning  increases,  but  for  shallow 
tunnels,  such  as  Nast,  there  seems  to  be  no  effect. 

73.  The  final  cost  for  Nast  Tunnel  was  $7,473,000,  including 
change  orders  for  differing  site  conditions  and  other  unforeseen  prob¬ 
lems.  This  sum  excludes  those  costs  not  considered  by  COSTUN,  such  as 
access  roads,  drainage  ditches,  the  Fryingpan  Conduit,  and  the  Granite 
Adit  portion  of  the  job.  Granite  Adit  is  a  10-ft-diam,  777-ft-long 
tunnel  intersecting  Nast  Tunnel  about  4000  ft  from  the  inlet  portal. 

Its  purpose  was  to  convey  water  from  Granite  Creek  to  Nast  Tunnel. 

During  construction,  it  was  used  as  an  exit  for  muck  hauling  and  dispos¬ 
al  for  the  reaches  of  tunnel  adjacent  to  it.  Fryingpan  Conduit  is  a 
1500-ft-long  conduit  constructed  of  7-ft-diam  precast  concrete  pipe, 
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connecting  Nast  Tunnel  at  the  outlet  portal  to  Boustead  Tunnel's  inlet 
portal,  which  is  a  diversion  tunnel  through  the  Continental  Divide. 

74.  The  COSTUN  as-built  estimate  totalled  $7,691,000,  or  3  per¬ 
cent  above  the  actual  cost.  The  changes  made  between  the  COSTUN  precon¬ 
struction  estimate  using  most  likely  conditions  and  the  COSTUN  as-built 
estimate  included  the  allowance  for  the  1700-ft  shear  zone  and  a  smaller 
shear  zone  approximately  300  ft  long,  both  of  which  caused  a  change  from 
mole  excavation  to  the  drill  and  blast  method.  In  addition,  one  segment 
approximately  4000  ft  long  that  ran  under  a  small  lake  experienced  minor 
water  inflows,  but  the  resulting  cost  increase  was  insignificant. 

75.  Table  4  contains  a  breakdown  of  COSTUN  estimates  1-9  and  the 
as-built  estimate  for  labor,  equipment,  and  materials  components  and  the 
totals.  Also  shown  is  the  total  time  required  for  construction  of  the 
tunnel  for  each  estimate.  Labor  was  the  major  cost  component  for  this 
job  and  most  tunnels,  accounting  for  two  thirds  of  the  total  for  all 
estimates.  Equipment  and  materials  were  nearly  equal,  averaging  16  and 
17  percent,  respectively,  of  the  totals.  Foster  et  al.  (1979)  indicate 
that  a  breakdown  of  40  percent  for  labor,  40  percent  for  materials,  and 
20  percent  for  equipment  is  reasonable.  Because  tunnel  jobs  vary  so 
widely  in  nearly  all  aspects,  no  significance  should  be  attached  to  these 
figures  for  tunnels  in  general.  The  engineer  estimates  and  contractor 
bids  were  not  itemized  for  labor,  equipment,  and  materials,  so  there  is 
no  basis  for  comparison  of  COSTUN  figures  except  for  the  totals  shown  in 
Table  3.  These  figures  show  that  the  COSTUN  best  estimate  of  actual  con¬ 
ditions  was  5  percent  above  the  winning  bid.  The  COSTUN  as-built 
estimate  was  3  percent  higher  than  the  actual  cost.  These  figures  indi¬ 
cate  very  good  correlation,  but  they  do  not  give  the  total  picture.  The 
multitude  of  factors  used  to  arrive  at  the  estimated  totals  may  or  may 
not  represent  actual  conditions.  For  example,  the  profit  and  overhead 
factors  represent  a  combined  30  percent  of  the  totals  in  the  estimates. 
The  actual  profit  and  overhead,  as  well  as  the  figures  used  in  the  bid, 
are  unknown.  Therefore,  the  reader  is  cautioned  that  although  the  over¬ 
all  accuracy  of  the  estimates  looks  good,  the  accuracy  of  individual  fac¬ 
tors  may  not  have  been  as  good.  The  self-cancelling  nature  of  random  er¬ 
rors  in  these  factors  could  still  result  in  a  balanced  total  estimate. 


Buckskin  Mountains  Tunnel 


76.  Buckskin  Mountains  Tunnel,  a  6.8-mile-long,  22-ft-diam 
irrigation  tunnel,  was  designed  by  USBUREC  and  built  near  Parker,  Ari¬ 
zona,  as  part  of  the  Central  Arizona  Project.  Prospective  bidders  were 
allowed  to  bid  on  three  alternatives:  (a)  a  19-ft  6-in.-diam,  drill  and 
blast  horseshoe-shaped  tunnel;  (b)  a  20-ft-diam,  circular-moled  tunnel 
with  cast-in-place  concrete  lining;  and  (c)  a  22-ft-diam,  circular-moled 
tunnel  with  a  precast  concrete  segmental  lining.  The  award  was  made  for 
the  22-ft-diam  tunnel,  and  construction  began  in  1975.  The  tunnel  was 
holed  through  in  May  1979,  but  final  cleanup  has  not  been  completed  at 
the  time  of  this  report.  A  Robbins  mole  was  used  for  the  entire  length, 
except  for  approximately  100  ft  at  each  portal  excavated  by  drill  and 
blast.  The  tunnel  support  and  lining  consist  of  6-in. -thick  precast 
concrete  segments,  installed  just  behind  the  mole.  The  tunnel  was  driv¬ 
en  through  competent  andesite,  but  some  blocky  conglomerate  was  encoun¬ 
tered  that  slowed  progress.  A  $6-million  changed  conditions  claim  con¬ 
cerning  this  blocky  zone  is  still  pending  and  may  add  to  its  $60-million 
expected  total  cost. 

77.  Information  used  to  develop  and  compare  COSTUN  estimates  for 
Buckskin  Mountains  Tunnel  was  obtained  from  three  sources:  (a)  the 
USBUREC  Engineering  and  Research  Center,  Denver,  Colorado,  provided  ge¬ 
ology  reports;  (b)  the  U.  S.  Army  Engineer  District,  Kansas  City,  loaned 
a  set  of  job  specifications,  including  engineer  estimates  and  contractor 
bids;  and  (c)  the  personnel  of  the  resident  engineer's  office,  USBUREC, 
Parker,  Arizona,  provided  other  useful  information.  Table  5  summarizes 
the  cost  estimates  prepared  by  the  engineer,  various  contractors,  and 
the  COSTUN  computer  model.  All  identifiable  costs  not  considered  by  the 
computer  model  were  subtracted  from  the  contractor  bids  and  engineer  es¬ 
timates  for  the  sake  of  comparison. 

78.  Engineer  estimate  1,  COSTUN  estimate  1,  and  contractor  bid  1 
were  for  the  19-ft  6-in.-diam  horseshoe-shaped  tunnel  on  the  drill  and 
blast  schedule.  The  engineer  estimate  for  this  option  was  $53,991,000, 
as  compared  with  $51,641,000  for  the  COSTUN  estimate  and  $65,513,000  for 


the  lone  contractor  bid  on  this  option.  Engineer  estimate  2  ($47,441,000), 
COSTUN  estimate  2  ($53,841,000),  and  contractor  bid  2  ($71,208,000) 
were  for  the  20-ft-diam  moled  tunnel  option  with  cast-in-place  concrete 
lining.  Both  of  the  above  options  show  a  rather  wide  spread  (27  and 
50  percent,  respectively),  although  the  engineer  and  COSTUN  estimates 
are  within  5  and  13  percent  of  each  other. 

79.  Engineer  estimate  3,  contractor  bids  3-5,  and  COSTUN 
estimates  3-9  are  for  the  22-ft-dlam  moled  tunnel  with  precast  concrete 
segmental  lining.  COSTUN  estimate  3  of  $59,959,000  represents  the  esti¬ 
mated  cost  for  the  most  likely  conditions  known  at  bid  time,  which  is 

27  percent  higher  than  the  engineer  estimate  of  $47,257,000  and  33  per¬ 
cent  higher  than  the  winning  contractor  bid  of  $44,940,000.  The  highest 
bid  of  $63,493,000  was  41  percent  higher  than  the  winning  bid,  34  per¬ 
cent  higher  than  the  engineer  estimate,  and  6  percent  higher  than  the 
COSTUN  estimate.  The  winning  bid  was  5  percent  lower  than  the  engineer 
estimate.  At  first  glance,  the  COSTUN  estimate  seems  to  be  far  too  high. 
However,  the  as-built  cost  of  the  tunnel  was  reported  as  approximately 
$60  million,  which  lends  more  credence  to  the  COSTUN  estimate. 

80.  COSTUN  estimates  4-9  were  used  to  check  the  cost  impact  of 
varying  input  parameters,  one  at  a  time,  over  a  range  of  values.  For  an 
increase  of  15  percent  over  the  most  likely  RQD  values  (COSTUN  estimate  4), 
the  estimated  cost  was  reduced  to  $52,287,000,  or  13  percent  below  the 
estimate  for  most  likely  conditions.  A  15  percent  decrease  in  RQD  val¬ 
ues  in  COSTUN  estimate  5  produced  an  expected  cost  of  $75,130,000,  or 

25  percent  higher  than  the  $59,959,000  expected  cost  for  most  likely 
conditions.  In  COSTUN  estimates  6  and  7,  the  unconfined  compressive 
(UC)  strengths  were  increased  and  decreased  25  percent,  respectively, 
from  the  most  likely  values.  The  resulting  costs  were  $72,054,000  for  a 
25  percent  increase  in  UC  strengths  (20  percent  above  the  $59,959,000 
for  most  likely  conditions)  and  $49,581,000  for  a  25  percent  decrease  in 
UC  strengths  (17  percent  below  the  expected  cost  for  most  likely  condi¬ 
tions).  The  lining  thickness  was  increased  33  percent  in  COSTUN  estimate  8 
over  the  actual  lining  thickness  used  in  construction  (6  in.)  and  was  in¬ 
creased  to  10  in.  (67  percent)  in  COSTUN  estimate  9.  These  runs  produced 
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estimates  of  $61,373,000,  or  2. A  percent  above  the  total  cost  for  the 
actual  lining  thickness  used,  and  $62,826,000,  or  A. 8  percent  higher, 
respectively.  The  increase  in  cost  per  linear  foot  of  tunnel  over  the 
actual  lining  thickness  amounted  to  $39  and  $A1,  respectively,  on  a  base 
cost  of  $1670/ft. 

81.  The  as-built  cost  of  Buckskin  Mountains  Tunnel  was  reported 
as  $60  million  in  round  figures.  The  COSTUN  estimate  representing  con¬ 
ditions  known  at  the  end  of  construction  totalled  $61,A7A,000,  or 

2.5  percent  above  the  actual  cost.  However,  as  mentioned  earlier,  a 
$6-million  claim  for  changed  conditions  is  pending  and  may  add  to  the 
total  cost.  Even  if  the  entire  $6  million  is  awarded  to  the  contractor, 
the  COSTUN  estimate  would  be  only  7  percent  below  total  cost.  Thus,  the 
COSTUN  as-built  estimate  falls  within  the  range  of  accuracy  of  -7  to 
+2.5  percent.  Again,  although  the  overall  accuracy  of  the  total  cost 
figures  looks  good,  the  accuracy  of  individual  components  may  not  be  as 
good.  For  example,  the  engineer  estimate  for  excavation  in  the  tunnel 
was  $29,589,8A0,  while  the  COSTUN  estimate  for  this  work  was  $38,A95,000, 
or  30  percent  higher.  This  difference  is  consistent  with  the  overall 
spread  between  the  engineer  and  the  COSTUN  estimate  of  27  percent,  cited 
earlier.  However,  the  engineer  estimate  for  furnishing  and  installing 
the  segmental  lining  was  $16,972,000,  while  the  COSTUN  estimate  was 
$17,267,AA5,  or  1.7  percent  higher.  These  component  costs  compare  fa¬ 
vorably,  but  the  27  percent  spread  between  the  estimated  totals  is  not 
reflected.  Obviously,  the  difference  had  to  be  greater  among  the  re¬ 
maining  component  costs  in  order  for  the  total  27  percent  difference  to 
be  achieved. 

82.  Table  6  presents  the  breakdown  of  estimated  costs  for  labor, 
equipment,  and  materials  and  the  estimated  time  for  construction  of  the 
tunnel  for  COSTUN  estimates  1-9  and  the  COSTUN  as-built  estimate.  The 
average  cost  of  labor  amounted  to  60  percent  of  the  total,  while  the 
equipment  accounted  for  22  percent  and  materials  accounted  for  the  re¬ 
maining  18  percent  for  the  10  estimates. 

83.  The  estimated  time  required  to  complete  the  tunnel  ranged 
from  2A75  to  A095  days  for  the  three  options  under  most  likely  conditions. 
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These  figures  contrast  sharply  with  the  allotted  contract  time  of 
1800  days,  which  the  contractor  met.  The  reasons  for  this  discrepancy 
in  estimated  times  could  not  be  determined.  Again,  this  case  shows  that 
even  when  the  estimated  totals  agree  closely,  there  can  still  be  large 
differences  in  some  factors  or  components.  It  is  interesting  to  note 
that  the  least  expensive  alternative  according  to  the  COSTUN  estimates 
was  the  19-ft  6-in.-diam,  horseshoe-shaped  drill  and  blast  option  at 
$51,641,000,  while  the  20-ft-diam,  circular-moled  tunnel  was  second  at 
$53,841,000  and  the  22-ft-diam  moled  tunnel  was  the  most  expensive  at 
$59,959,000.  The  engineer  estimates  are  exactly  reversed,  with  the 
22-ft-diam  tunnel  the  least  expensive  and  the  19-ft  6-in.-diam  tunnel 
the  most  expensive  tunnel  option. 

Park  River  Tunnel 

84.  Park  River  Tunnel  is  a  22-f t-f inished-diam,  9095-ft-long 
Corps  of  Engineers  tunnel,  that  is  located  approximately  150  ft  below 
street  level  in  Hartford,  Connecticut,  and  was  designed  to  convey  flood 
flows  of  the  Park  River  to  the  Connecticut  River.  It  passes  through 
sandstone  and  shale,  most  of  which  is  of  good  quality.  One  shear  zone 
approximately  270  ft  long  was  encountered,  as  predicted  by  exploratory 
borings.  Prospective  bidders  were  allowed  to  bid  three  alternatives  for 
driving  the  tunnel:  drill  and  blast  excavation  with  a  cast-in-place 
concrete  lining,  mole  excavation  with  cast-in-place  concrete  lining,  and 
mole  excavation  with  a  precast  segmental  crete  lining.  The  award  was 
made  for  the  mole-driven  tunnel  with  precast  segmental  concrete  lining. 
Construction  began  in  1977,  and  the  tunnel  was  holed  through  in  July 
1980.  Approximately  150  ft  near  the  outlet  portal  was  excavated  by 
drill  and  blast  for  a  staging  area  for  the  mole,  as  well  as  approximate¬ 
ly  270  ft  of  shear  zone. 

85.  Information  used  to  develop  and  compare  COSTUN  estimates  for 
Park  River  Tunnel  was  furnished  by  personnel  of  the  U.  S.  Army  Engineer 
Division,  New  England.  Table  7  summarizes  the  cost  estimates  and  bids. 
Table  8  presents  a  breakdown  or  the  various  COSTUN  estimates  for  labor, 
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equipment,  materials,  and  time  required  to  build  the  tunnel.  In  addi¬ 
tion  to  the  data  used  for  comparison  on  the  two  tunnels  previously  dis¬ 
cussed,  the  estimated  costs  are  also  displayed  for  the  two  shafts  asso¬ 
ciated  with  this  project  (Table  7).  As  with  the  other  tunnels,  all 
identifiable  costs  not  considered  by  the  COSTUN  model  were  subtracted 
from  the  engineer  estimates  and  contractor  bids  for  a  meaningful 
comparison. 

86.  Engineer  estimate  1,  contractor  bid  1,  and  COSTUN  estimate  10 
are  for  the  drill  and  blast  option.  The  engineer  estimate  for  tunnel 
construction  was  $20,916,000,  as  compared  with  the  contractor  bid  of 
$24,885,000  and  the  COSTUN  estimate  of  $19,476,000.  For  the  inlet 
shaft,  the  engineer  estimate  was  $770,000,  the  COSTUN  estimate  $1,971,000, 
and  the  contractor  bid  $1,800,000;  for  the  outlet  shaft,  the  engineer 
estimate  was  $1,100,000,  the  COSTUN  estimate  $1,981,000,  and  the  con¬ 
tractor  bid  $3,000,000.  The  total  project  was  estimated  to  cost 
$22,786,000  by  the  engineer,  $23,428,000  by  the  COSTUN  model,  and 
$29,685,000  by  the  contractor  (a  spread  of  30  percent). 

87.  Engineer  estimate  2,  contractor  bid  2,  and  COSTUN  estimate  11 
are  for  the  mole  excavation  schedule  with  cast-in-place  lining.  The  en¬ 
gineer  estimates  and  COSTUN  estimates  for  the  inlet  and  outlet  shafts 
were  unchanged,  while  the  contractor  bids  were  $3,500,000  for  the  inlet 
and  $3,000,000  for  the  outlet  shaft.  The  tunnel  construction  was  esti¬ 
mated  at  $17,977,000  by  the  engineer,  and  $16,785,000  by  COSTUN,  as  com¬ 
pared  with  the  contractor  bid  of  $14,096,000.  Since  the  contractor  bids 
for  the  shafts  were  much  higher  than  either  estimate  and  the  bid  for 
tunnel  construction  was  much  lower,  this  imbalance  might  have  been  a 
strategy  to  increase  early  cash  flow.  The  estimates  and  bids  for  the 
total  project  were  $19,847,000  by  the  engineer,  $20,737,000  by  the 
COSTUN  model,  and  $20,596,000  by  the  contractor  (a  spread  of  just 

4.5  percent) . 

88.  The  contractor  awarded  the  job  on  the  mole  excavation  sched¬ 
ule  with  precast  lining  bid  $17,329,000  on  the  project  (contractor  bid  3). 
The  bid  was  3.7  percent  lower  than  engineer  estimate  3  of  $17,993,000  and 
5.8  percent  lower  than  COSTUN  estimate  1  of  $18,405,000.  Again,  the 
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contractor  bids  for  tunnel,  inlet,  and  outlet  shafts  appear  to  be  unbal¬ 
anced.  For  the  outlet  shaft,  from  which  tunnel  excavation  proceeded, 
the  contractor  bid  was  $4,000,000,  while  the  engineer  and  COSTUN  esti¬ 
mates  were  $1,100,000  and  $1,981,000,  respectively.  This  trend  is  ap¬ 
parent  in  every  contractor  bid  on  the  project,  so  a  comparison  of  the 
shafts  and  tunnel  items  separately  is  not  meaningful.  Only  the  total 
project  estimates  are  compared.  The  next  lowest  bid  of  $17,360,000  was 

3.5  percent  lower  than  the  engineer  estimate.  The  highest  bid  of 
$50,310,000  was  280  percent  of  the  engineer  estimate.  The  bid  spread 
was  nearly  $33,000,000,  almost  double  the  winning  bid. 

89.  COSTUN  estimates  2-9  were  made  to  test  the  cost  impact  of 
varying  rock  properties  and  design  lining  thicknesses  in  the  tunnel. 

Shaft  properties  and  costs  were  held  constant.  In  runs  2  and  3,  the  RQD 
values  were  increased  15  and  30  percent,  respectively,  over  the  most 
likely  values.  For  the  15  percent  increase  in  RQD,  the  estimated  cost 
of  the  tunnel  decreased  to  $13,555,000,  or  6.2  percent  lower  than  the 
$14,453,000  expected  cost.  The  30  percent  increase  in  RQD  resulted  in  a 
calculated  9.7  percent  reduction  to  $13,055,000.  Estimated  time  savings 
were  34  days  (5.6  percent)  in  run  2  and  53  days  (8.7  percent)  in  run  3. 

RQD  values  were  decreased  in  runs  4  and  5  by  15  percent  and  30  percent, 
respectively.  The  resulting  increases  in  costs  were  9.7  percent  to 
$15,851,000  for  the  15  percent  decrease  in  RQD  and  34.3  percent  to 
$19,406,000  for  the  30  percent  decrease.  Estimated  time  penalties  were 
53  days  (8.7  percent)  in  run  4  and  186  days  (30.4  percent)  in  run  5.  In 
runs  6  and  7,  the  UC  strengths  were  increased  and  decreased  by  15  percent, 
respectively.  Run  6  produced  an  estimated  cost  of  $15,543,000,  or 

7.5  percent  higher  than  the  expected  cost,  while  the  15  percent  decrease 
in  UC  strengths  in  run  7  resulted  in  a  7.5  percent  decrease  in  cost  to 
$13,360,000.  The  estimated  time  penalty  for  the  15  percent  increase  in 
UC  strengths  was  40  days  (6.5  percent)  in  run  6,  and  the  estimated  time 
savings  attributed  to  a  15  percent  reduction  in  UC  strengths  was  39  days 
(6.4  percent)  in  run  7. 

90.  Runs  8  and  9  were  made  to  assess  the  cost  impact  of  in¬ 
creasing  the  thickness  of  the  precast  concrete  segments  from  9  to  12  in. 

45 


in  run  8  and  to  15  in.  in  run  9,  amounting  to  increases  of  33  percent  and 
67  percent,  respectively,  over  the  design  value  of  9  in.  The  cost  pen¬ 
alty  was  $650,000,  or  4.5  percent,  for  the  12-in.  liner  and  $1,390,000, 
or  9.6  percent,  for  the  15-in.  liner.  The  time  penalties  were  7  days  in 
run  8  (1  percent)  and  13  days  (2  percent)  in  run  9  over  the  expected  time 
of  611  days  for  the  design  lining  thickness. 

91.  The  COSTUN  as-built  estimate  is  identical  with  the  estimate 
for  most  likely  conditions  known  at  bid  time.  There  were  no  big  sur¬ 
prises  in  constructing  this  tunnel,  except  for  some  difficulties  encoun¬ 
tered  during  construction  of  the  outlet  shaft.  Because  the  tunnel  has 
only  recently  been  completed,  final  as-built  costs  were  not  available 
but  are  expected  to  be  around  $23,000,000.  If  this  estimate  is  correct, 
the  COSTUN  and  engineer  estimates  are  20  and  22  percent,  respectively, 
below  the  final  costs. 

92.  Table  8  presents  a  breakdown  of  COSTUN  estimates  for  labor, 
equipment,  materials,  and  time  required  to  build  Park  River  Tunnel. 

Labor  costs  accounted  for  approximately  65  percent,  equipment  19  per¬ 
cent,  and  materials  16  percent  of  the  estimated  total  cost. 


PART  IV:  SUMMARY  AND  CONCLUSIONS 


92.  The  two  basic  methods  for  preparing  tunnel  estimates  are: 

(a)  a  simulation  of  actual  construction  operations  in  which  amounts  and 
types  of  equipment  and  materials  needed  are  estimated,  crew  productivity 
rates  are  estimated,  the  rates  of  material  and  labor  usage  and  tunnel 
advance  are  set  down,  and  a  total  estimated  cost  is  computed;  and  (b)  a 
comparison  with  similar  tunnels  in  which  the  unit  costs  of  major  con¬ 
struction  components,  such  as  excavation,  muck  hauling,  support  and  lin¬ 
ing,  and  pumping  are  determined  and  applied,  with  or  without  adjustments 
for  inflation  and  other  factors  to  the  present  tunnel,  for  which  the 
quantities  of  each  component  have  been  computed.  Either  of  these  meth¬ 
ods  may  be  performed  manually  or  with  a  computer.  The  first  approach, 
actual  simulation,  is  more  difficult,  time-consuming,  and  accurate.  The 
second  approach,  the  unit  cost  method,  is  much  easier  to  use  and  gives 
fair  results,  especially  for  preliminary  estimates  or  comparison  of 
alternatives. 

93.  Over  the  past  decade,  several  computer  models  have  been  de¬ 
veloped  for  estimating  tunnel  costs.  The  USDOT  has  provided  the  primary 
support  for  these  efforts,  and  consequently,  most  of  the  models  were  de¬ 
veloped  for  transportation  tunnels  (railroad,  motor  vehicle,  and  rapid 
transit ) . 

94.  Of  the  four  computer  models  investigated,  COSTUN  satisfied 
more  completely  program  objectives  for  a  flexible,  easy  to  use  model 
that  can  be  used  by  persons  lacking  an  extensive  background  in  tunneling 
and  cost  estimating.  It  has  a  wide  range  of  applications,  including 
rock,  soft  ground,  and  cut-and-cover  tunnels,  and  considers  various  com¬ 
binations  of  conditions  and  tunnel-driving  methods.  It  also  has  several 
well-recognized  shortcomings;  e.g.,  aboveground  costs  are  not  considered, 
risk  and  uncertainty  are  not  treated  explicitly,  cost  equations  are  based 
on  average  costs  for  tunnels  in  Chicago  in  1969,  and  method  and  equipment 
selection  is  based  on  standard  practice  (circa  1970). 

95.  Manual  estimates  and  bid  preparation  will  continue  as  the 
"tried  and  true"  method  for  making  final  estimates.  Computer  models  are 
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best  suited  for  preliminary  estimates,  evaluation  of  alternatives,  and 
checks  on  manual  estimates. 

96.  The  COSTUN  model  was  evaluated  using  three  completed  tunnels 
for  which  good  documentation  of  geology,  construction  methods,  design, 
and  cost  data  were  available.  All  three  tunnels  were  driven  through 
rock,  and  consequently,  the  model's  reliability  for  estimating  costs  of 
soft  ground  and  cut-and-cover  tunnels  was  not  verified.  For  two  of  the 
three  rock  tunnels,  COSTUN  estimates  were  within  6  percent  of  the  win¬ 
ning  contractor  bids  and  within  7  percent  of  the  actual  costs.  These 
figures  indicate  very  good  overall  accuracy  of  the  model  for  rock  tunnels. 
However,  the  accuracy  of  individual  component  costs  estimated  by  COSTUN 
may  vary  over  a  wider  range.  It  is  difficult  to  test  the  validity  of 
these  component  estimates  for  two  reasons: 

a.  Contractor  bids  are  often  unbalanced  to  improve  early 
cash  flow.  Therefore,  construction  costs  may  be  over¬ 
estimated  for  components  used  during  the  early  stages  of 
the  project  and  underestimated  for  components  used  dur¬ 
ing  latter  stages. 

b^.  Final,  as-built  costs  are  usually  reported  as  a  lump  sum 
or  with  only  limited  itemization,  precluding  an  item  by 
item  comparison. 

97.  For  the  three  tunnels  studied,  a  variation  in  rock  UC 
strengths  of  _+  25  percent  resulted  in  estimated  cost  savings  of  6  to 
17  percent  for  a  25  percent  reduction  in  strengths  and  estimated  cost 
increases  of  6  to  20  percent  for  a  25  percent  increase  in  strengths. 

The  cost  impact  from  a  variation  in  strengths  probably  depends  on  the 
expected  strengths  more  than  any  other  factor.  For  example,  if  very  low 
strengths  were  expected,  an  increase  in  strengths  might  result  in  a  de¬ 
crease  in  costs;  however,  for  the  tunnels  studied,  which  were  built  in 
rock  with  moderate  to  high  expected  strengths,  the  reverse  was  true. 

98.  The  estimated  cost  impact  of  varying  RQD  over  a  +  33  percent 
range  was  a  17  to  24  percent  increase  in  cost  for  a  33  percent  decrease 
in  RQD  and  about  a  10  percent  decrease  in  cost  for  a  33  percent  increase 
in  RQD.  Again  the  cost  impact  probably  depends  on  the  expected  RQD  val¬ 
ues  more  than  any  other  factor.  For  example,  if  the  expected  RQD  values 
were  low,  a  33  percent  decrease  might  make  tunnel  excavation  much  more 
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expensive  than  the  impact  of  a  33  percent  reduction  in  high  RQD  values 
for  another  tunnel. 

99.  The  savings  that  can  be  achieved  through  less  conservative 
lining  thickness  can  be  quite  significant.  For  example,  3  in.  added  to 
the  precast  concrete  segments  specified  for  the  22-ft-diam  Park  River 
Tunnel  would  have  added  an  estimated  $650,000  to  the  cost,  or  about 
$72/ft  of  tunnel.  Similar  effects  were  observed  in  estimates  for  the 
other  two  tunnels,  though  to  a  proportionally  lesser  scale  in  the  10-ft- 
diam  Nast  Tunnel. 

100.  In  slopes  and  foundations,  back  analyses  can  provide  knowl¬ 
edge  of  the  actual  strengths  at  failure  and  yield  valuable  data  for  fu¬ 
ture  designs.  However,  with  tunnels  there  is  little  historical  perspec¬ 
tive  for  altering  design  methods.  Tunnel  failures  are  rare;  many  have 
been  in  service  for  over  100  years.  We  know  what  has  been  successful  in 
the  past,  but  we  do  not  know  how  conservative  our  empirical  designs  are. 
Much  research  has  been  and  is  being  directed  toward  this  problem.  Tun¬ 
nel  experts  generally  admit  that  currently  available  analytical  methods 
outstrip  our  ability  to  provide  reliable  input  values  for  the  variables 
needed  for  solution.  Hopefully,  this  continued  effort  will  lead  to  bet¬ 
ter  understanding  and  more  economical  designs  for  support  and  lining. 
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Table  1 


Explanation  of  Typical  Geological  Parameters 
Used  to  Form  Parameter  Trees 

(TCM) 


Item 


Explanation 


1.  Rock  Type 


2.  Major  Defects 


3.  Jointing,  RQD 


4.  Foliation 


5.  Gas 


6.  Water  Inflow 


7.  Compressive  Strength 


Left  end  node.  One  parameter  tree  must 
be  created  for  each  geological  unit  or 
rock  type  to  be  modeled.  Rock  type  or 
lithology  is  used  mainly  to  categorize 
engineering  properties  of  materials. 

Main  effect  on  tunneling  is  rate  of 
drill  bit  or  cutter  wear  associated  with 
different  rock  types. 

First  branch  of  parameter  tree.  De¬ 
scribes  faults  (RQD  =  0  by  definition), 
clay  seams,  or  for  limestone  and  dolo¬ 
mites,  solution  cavities. 

Second  branch  of  parameter  tree.  Ex¬ 
pressed  as  high  (70-100),  medium  (30-70), 
or  low  (0-30)  to  describe  relative  con¬ 
dition  of  rock.  Helps  in  prediction  of 
tunnel  support  requirements. 

Third  branch  of  tree.  Used  for  metamor- 
phic  units.  When  used  for  sedimentary 
rocks,  refers  to  bedding. 

Fourth  branch  of  tree.  Probabilities 
assigned  to  existence  or  nonexistence  of 
gas.  No  quantitative  estimate  is  made. 

Fifth  branch  of  tree.  Probabilities  as¬ 
signed  to  high  and  low  inflow;  no  numer¬ 
ical  values  assigned  to  inflow  rate. 

May  be  dependent  on  jointing  and  defects 
to  some  extent. 

Sixth  branch  of  tree.  Probabilities  of 
strength  being  very  high  (>32000  psi), 
high  (16000-32000  psi),  medium  (8000- 
16000),  or  low  (0-8000)  are  assigned. 

Used  to  assist  evaluation  of  bit  and 
cutter  wear,  advance  rates,  blast 
weights  and  spacings,  and  support 
requirements. 


Table  2 


of  Cumpu  lei  Models 


COSTtm 


Advantages,' 

Disadvantage* 


-Tunnels  and  shafts 

-Uliulft.  horseshoe,  basket- 
handle,  01  cut -and-t over  bo* 

Finished  cross  sections  1  roc 
1C  to  40  ft 

'Rock,  soft  ground,  cut  and 
covet 

~t*cavatlon  by  aula,  drill  and 
blast,  shield  w/rlpper,  mole, 
or  hand  except  In  soft  ground 

-Fortran  IV.  Honeywell  C£615. 
Uni  vac lOt! 

-Preprogrammed  standard  dealgna 
keyed  to  geological  Input  data 
For  support,  lining,  dewater¬ 
ing,  ventilation,  etc. 

-Advance  rate,  other  calcula¬ 
tions  baaed  on  empirical 
equal  Iona 

-Computed  values  way  be  over¬ 
ridden  by  user-suppl led  values 
for  so vinca  rate,  1  loin* 
th lekneea ,  atebll last  Ion 
atihodt,  etc. 

-Uses  fixed,  user- Input  geology 
profile 

-Host  representative  of  models 
studied  to  actual  estimating 
procedures  used  In  industry 
by  owners  and  engineers 

-User  need  not  be  tunnel  expert 

-Profit,  overhead,  adjustments 
for  Inflation  of  coats  are 
input  by  uaer 

-Considers  any  geology 

-Alternatives  can  be  evaluated 

-Coat  adjustment  factors  used 
tor  labor,  materials,  equip¬ 
ment,  and  regional  productiv¬ 
ity  differences 

-Calculated  tunnel  and  shaft 

data  coat  and  time  summaries 


-Rather  simplistic  parametric 
relationships  between  geology 
end  support  design 
-Based  on  static  technology/ 
coats 

-Aboveground  costa  not 
considered 

-No  treatment  of  uncertainty 
-Unsuitable  for  smell  projects 


-Tunnels,  shaft*,  edits, 

i  a  vents 

-Any  shape,  al*« 

-Rock  only 

-Any  excavation  met 'tod 


-PL/1,  IBM  Machine  language  1, 
IBM  110/  1W 

-Probabilistic  geology  model. 
Uaer  defines  parameters  to 
describe  each  rock  unit,  with 
aasoclatsd  probabilities  of 
occurrance 

-All  factors  effecting  tunnel 
construction  Hai  be  Input  by 
user.  Requires  very  detailed 
Input.  Model  has  no  design 
capability 

-Breaks  costs  down  to  cycla 
level  of  operations 

-Tunnel  alamlator  mode  la  uncer¬ 
tainty  In  construction 
operat loos 

-Very  flexible  hut  requires 
uaer  with  extensive  background 
in  tunneling,  eat  testing,  and 
statistical  modeling 

-Contingency  coats  not 
considered.  Modeling  of  un¬ 
certainty  replaces  It 

-Statistical  Inferences  of  best 
case,  worst  case,  sod  expected 
cost  and  time,  standard  devia¬ 
tion,  etc.,  car  be  easily  made 


-Progress  reports  of  resources 
used  versus  time  and  progress 
-Scattergram  of  coat  versus 
time.  Each  putted  point 
repreaents  one  tunnel  estimate 
-Optional  cost /time  summer  lee 
for  user-selected  profiles 


TM 


•Tunnels  only 
-Any  shape,  else 

-Rock  only 

-full-fate  excavation  i>, 
h  drill  end  bleat 


-Uaer  input  fixed  2-D  or  3-1) 
geology  file 

-Very  detailed  loput  for  con¬ 
struction  method,  equipment, 
crew,  etc. 

-Advance  rate  calculated  by 
model 

-Quantities  and  costs  of  all 
construction  Inputs  calculat¬ 
ed  on  per  foot  basis;  user 
supplies  unit  cost  of  mate¬ 
rials.  labor,  and  equipetent 


-Progress  reports  and  cost 
reports  at  user-specified  time 
intervals,  including  tine  end 
coat  of  completed  tunnel 


-Very  detailed  input  date 
requirements 

-Vary  lsrgs  storage  and  com¬ 
puter  time  requirements 
-User  must  have  ln-depth 
knowledge  of  tunneling,  esti¬ 
mating,  probability,  and 
statist  lea 

-Aboveground  costs  nut 
cons Ida red 

-Validity  of  subjective  prob¬ 
ability  subject  to  question 
-Results  difficult  to  interpret 
-Only  the  reasonableness,  rather 
than  the  accuracy,  of  solutions 
can  be  checked.  User  must 
thoroughly  verify  Input  date 


-Very  detailed  input 
requirements 

-User  must  have  ln-depth 
knowledge  of  tunnel  estimating 

-Aboveground  costs  not 
considered 

-Limited  applications.  Soft 
ground,  cut  end  cover,  heeding 
and  bench,  etc.,  not  considered 


-hang  22 00,  data  storage 
Of'  Stars 

-Progras  consists  of  2  mm  1 n 

data  bases 

-Us Is  Bank  1  describes 
units  ol  mtlort  required 
for  each  coast  rue t Ion  op¬ 
eration  modeled 
-Oats  Bank  2  Is  a  unit  coat 
file,  based  on  UasMngtnn, 
U.  C.  .  costs  for  19  76 
-bats  Banks  were  based  on 
analysis  of  20  tunnels 
built  fn  United  states  In 
last  10  years 

-Adjustments  may  hr  red*  tc 
bats  Banka  for  inflation, 
regional  d.fference*.  etc. 
-User  input  Includes  geom¬ 
etry.  geology,  location, 
time,  selection  of  r on- 
•t rue t loo  method,  support 
snd  lining  method  and 
type,  muck  removal  method, 
work  week,  number  of  bid¬ 
ders  end  site  preparation 
requirements 


-Hat  of  input  data,  and 
detailed  cost  end  time 
summaries  for  modeled  ton- 
•tructlon  operations  snd 
direct,  Indirect,  and 
tote!  project  costs 
-Hsvls Ions  ere  planned  to 
take  account  of  legal 
costs,  financing,  cnvlron- 
»*ntal  issues,  change  or¬ 
ders,  insurance,  mltlgs- 
c ton  costs,  etc.,  as  well 
as  emre  comprehensive 
treatment  of  tunnel  con¬ 
struction  operations  snd 
condii ions 


-Limited  application.  Con¬ 
siders  onlv  soft  ground 
tunnels  and  stations.  Can 
be  used  to  advantage  for 
comparison  of  alternatives 


Table  3 


Nast  Tunnel  Cost  Estimates 


Owner:  USBUREC 
Built:  1970-1973 

Length:  Design  length  -  15,653  ft;  as-built  length  -  15,740  ft. 
Diameter:  Finished  -  10  ft 

Shape:  Circular  and  horseshoe 

General  geology:  Competent  granite,  porphyry,  some  crushed  zones 

Construction  Estimates 


Estimate  No 

Total  Cost 
millions  $ 

Cost,  $/ft 

Engineer  1 

5.103 

326 

Contractor 

1 

6.814 

435 

Contractor 

2 

7.238 

462 

Contractor 

3 

8.156 

521 

Contractor 

4 

7.983 

510 

Contractor 

5 

8.355 

534 

Contractor 

6 

8.381 

535 

Contractor 

7 

6.763 

432 

Contractor 

8 

6.568 

420 

Contractor 

9 

9.904 

633 

Engineer  2 

5.134 

328 

COSTUN  1 

7.089 

453 

COSTUN  2 

7.535 

481 

COSTUN  3 

6.640 

424 

COSTUN  4 

8.264 

528 

COSTUN  5 

6.371 

407 

COSTUN  6 

6.562 

419 

COSTUN  7 

7.573 

484 

COSTUN  8 

7.089 

453 

COSTUN  9 

7.089 

453 

As-built  Cost 

7.473 

477 

COSTUN  (As- 

built)  7.691 

491 

_ Comments _ 

1.  Engineer  estimate  1  and  Con¬ 
tractor  bids  1-6  are  for  the 
drill  and  blast  excavation 
schedule 

2.  Engineer  estimate  2  and  Con¬ 
tractor  bids  7-9  are  for  the 
mole  excavation  schedule 

3.  COSTUN  estimates  are  for 
mole  excavation  in  good  qual¬ 
ity  rock  and  conventional  ex¬ 
cavation  in  poor  quality  rock 

4.  In  all  estimates,  costs  not 
considered  by  COSTUN  have 
been  subtracted  from  the  man¬ 
ual  estimates  for  sake  of 
comparison 

5.  Contractor  bids  1  and  7  are 
from  same  company,  drill  and 
blast  and  mole  schedules, 
respectively.  This  company 
was  awarded  contract  with 
option  of  using  either  exca¬ 
vation  method  as  necessary 

6.  COSTUN  estimate  1  represents 
estimated  costs  for  most 
likely  conditions.  COSTUN 
estimates  2-7  are  for  possi¬ 
ble  variations  in  conditions 
encountered,  or  for  sensi¬ 
tivity  analysis 

7.  As-built  costs  include  costs 
of  relevant  change  orders 

8.  COSTUN  as-built  estimate  in¬ 
cludes  costs  of  87  ft  of 
additional  tunneling,  which 
resulted  from  improper  align¬ 
ment  of  mole 


Table  4 


Nast  Tunnel  COSTUN  Estimates 


Description 

Labor 

Tunnel  Cost, 
Equipment 

millions  $ 
Materials 

Total 

Total 
Constr . 
Time,  days 

COSTUN  1 

Best  estimate  of  ex¬ 
pected  conditions 

4.738 

1.118 

1.233 

7.089 

985 

COSTUN  2 

Input  rock  strengths 
25%  higher  than  ex¬ 
pected  strengths 

5.094 

1.165 

1.276 

7.535 

1084 

COSTUN  3 

Input  rock  strengths 
25%  lower  than  ex¬ 
pected  strengths 

4.385 

1.059 

1.196 

6.640 

883 

COSTUN  4 

Input  RQD  33%  lower 
than  expected  RQD 

5.609 

1.279 

1.376 

8.264 

1203 

COSTUN  5 

Input  RQD  33%  higher 
than  expected  RQD 

4.260 

0.986 

1.125 

6.371 

865 

COSTUN  6 

Reduced  lining  thick¬ 
ness  from  18.5"  to  12" 
in  segs.  1,  4,  9,  11, 

12  and  from  14"  to 

10"  in  segs.  3,  5,  6, 

7,  8,  13  (29  to  33% 
decrease) 

4.546 

1.041 

0.975 

6.562 

955 

COSTUN  7 

Increased  lining 
thickness  from  18.5" 
to  24"  in  segs.  1,  4, 

9,  11,  12  and  from 

14"  to  18"  in  segs. 

3,  5,  6,  7,  8,  10, 

13  (29%  increase) 

4.913 

1.168 

1.492 

7.573 

1009 

COSTUN  8 

Decreased  rock  temp 

4.  738 

1.118 

1.233 

7.089 

985 

COSTUN  9 

Increased  rock  temp 

4.738 

1.118 

1.233 

7.089 

985 

As-built  Cost 

NA 

NA 

NA 

7.474 

1123* 

COSTUN  (As-built) 

5.252 

1.129 

1.310 

7.691 

1079 

*  The  number  of  days  required  for  construction  of  the  tunnel,  Granite 
Adit,  Fryingpan  Conduit,  and  other  items.  No  breakdown  was  available 
for  the  trnnel  or  for  the  number  of  crews  working  simultaneously. 
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APPENDIX  A:  USER'S  GUIDE  FOR  PROGRAM  COSTUN 


Introduction 


1.  Documentation  for  the  computer  program  COSTUN  for  estimating 
tunnel  costs  is  presented  in  this  appendix  and  includes  the  introduction, 
input  data,  program  execution  and  printer  output,  and  program  listing. 

2.  COSTUN  is  available  in  batch  mode  on  the  WES  Honeywell  GE635 
computer.  It  has  been  run  on  a  Univac  1108  at  the  New  England  Division 
(NED)  Corps  Office.  The  program  is  too  large  for  the  WES  Tymeshare 
System.  The  mainline  program  COSTUN  reads  the  project  title,  profit  and 
overhead  margins,  and  beginning  project  stationing.  After  these  data 
are  read,  a  series  of  calls  to  the  various  subroutines  is  initiated. 

The  first  subroutine  called  is  INPUT,  which  reads  the  general  project 
information,  elevations  of  nodal  points,  and  specific  values  of  all  in¬ 
put  data  for  each  tunnel  segment,  tunnel  reach,  shaft  segment,  and  shaft. 
The  computer  performs  an  extensive  check  of  all  input  data,  and  error 
statements  are  printed  out  for  mistakes  or  incompatible  data.  If  errors 
are  encountered  that  would  result  in  inaccurate  solutions,  a  "Fatal  Er¬ 
ror"  message  is  printed.  Less  serious  errors  are  indicated  by  "Warning" 
messages.  The  next  subroutine  called  by  the  mainline  program  is  SFTSET, 
which  calculates  shaft  geometry.  LENGTH  is  then  called  to  calculate 
shaft  lengths,  hoisting  heights,  tunnel  slopes,  and  lengths.  After  these 
calculations  have  been  made,  the  input  data  are  printed  out  by  subroutine 
INOUT  under  headings  "Tunnel  Input  Data"  and  "Shaft  Input  Data."  Sub¬ 
sequent  subroutines  calculate  excavated  dimensions,  spoil  quantities, 
advance  rates,  pumping  heights  and  quantities,  and  a  host  of  other  fac¬ 
tors  necessary  for  a  complete  estimate.  These  subroutines  and  their 
functions  are  listed  and  described  by  comment  cards  in  the  program  list¬ 
ing  and  in  the  documentation  report. 


Input  Data 


3.  Input  data  must  be  entered  on  the  file  cards,  with  all  data 
right-justified  within  formats.  The  job  control  cards  are  placed  at  the 
front  of  the  deck  and  then  followed  by: 

Item  1.  Title  cards.  All  10  must  be  included,  even  if  blank. 

Any  alphanumeric  data  may  be  entered  in  columns  1-64. 

Item  2.  Printout  options  (one  card).  Enter  code  0  or  leave  blank 
to  print  all  input  data,  1  in  column  1  to  suppress  nodal 
points,  1  in  column  2  to  suppress  tunnel  input  data,  1  in 
column  3  to  suppress  shaft  input  data,  1  in  column  4  to 
suppress  calculated  tunnel  data,  1  in  column  5  to  sup¬ 
press  calculated  shaft  data,  1  in  column  6  to  suppress 
tunnel  segment  and  reach  costs,  1  in  column  7  to  suppress 
shaft  segment  and  shaft  costs,  1  in  column  8  to  suppress 
tunnel  reach  cost  summary,  and  1  in  column  9  to  suppress 
shaft  cost  summary. 

Item  3.  Profit  and  overhead  margins  and  beginning  of  project  sta¬ 
tioning  (one  card).  Columns  1-10  contain  profit  margin 
in  percent,  columns  11-20  overhead  margin  in  percent,  and 
columns  21-30  beginning  project  stationing,  any  positive 
or  negative  number  between  _+  10,000.  As  an  example,  en¬ 
ter  4059.6;  not  40  +  59.6. 

Item  4.  Nodal  point  elevations.  Vse  one  card  per  nodal  point. 

Place  nodal  point  number  in  columns  2-5.  Place  nodal 
point  elevations  in  columns  11-20.  Nodal  points  are 
used  to  designate  the  ground  surface  elevation  at  each 
shaft  or  portal  and  the  ends  of  shaft  and  tunnel  seg¬ 
ments.  Tunnel  segment  elevations  should  be  referenced 
to  center-line  elevations  and  to  ground  surface  for  cut 
and  cover. 

Item  5.  Data  separator  (one  card).  Enter  999999  in  columns  1-6. 

Item  6.  Tunnel  segment  data.  Include  one  card  per  segment. 

Data  for  soft  ground  and  cut-and-cover  segments  are  con¬ 
tinued  on  a  second  card.  Columns  1-4  contain  the  seg¬ 
ment  number;  the  sequence  of  cards  must  correspond  to 
the  sequence  of  segments  within  a  reach.  The  left  nodal 
point  number  is  placed  in  columns  5-8,  right  nodal  point 
number  in  columns  9-12,  and  the  horizontal  length  of  the 
segment,  in  feet,  in  columns  13-20.  Columns  21-24 
contain  the  tunnel  reach  number.  The  UC  strength  of  in¬ 
tact  rock,  in  pounds  per  square  inch  (psi)  ,  is  entered 
in  columns  25-31  for  rock  segments  only.  RQD  is  entered 
in  columns  32-36  in  percent,  with  any  positive  number 
between  25  and  100,  for  rock  or  cut-and-cover  segments. 
For  cut-and-cover  segments,  RQD  refers  to  material  below 
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sound  rock  elevation  (see  columns  55-60  on  continuation 
card).  Excavation  method  is  coded  in  column  39.  Enter 
code  1  for  conventional  (drill  and  blast),  2  for  moled 
rock,  3  for  moled  soft  ground,  A  for  soft  ground  hand 
excavation,  5  for  soft  ground  ripper  excavation,  6  for 
cut  and  cover  with  vertical  sidewalls,  and  7  for  cut  and 
cover  with  sloping  sidewalls.  The  uniform  advance  rate 
is  entered  in  feet  per  day  in  columns  AO-AA.  If  left 
blank,  COSTUN  will  calculate  the  value. 


The  data  base  used  to  form  the  program's  advance  rate  equations  is  rather 
small  for  moled  rock  tunnels  and  moled  shafts.  Therefore,  the  user 
should  examine  advance  rates  calculated  by  COSTUN  for  these  methods  to 
see  if  they  appear  reasonable.  The  uniform  advance  rate,  whether  calcu¬ 
lated  by  COSTUN  or  input  by  the  user,  is  the  advance  rate  that  would  be 
achieved  if  the  segment  were  sufficiently  long  to  permit  work  crews  and 
equipment  to  reach  peak  efficiency.  However,  much  time  is  lost  during 
project  start-up,  when  switching  to  new  headings,  or  when  changing  exca¬ 
vation  methods.  Thus,  the  average  advance  rate  is  always  less  than  the 
computed  uniform  advance  rate.  The  average  advance  rate,  on  which  costs 
are  based,  is  computed  internally  by  COSTUN  by  making  adjustments  to  the 
uniform  advance  rate,  as  described  previously.  Water  inflow  is  coded  in 
gallons  per  minute  in  columns  A5-51  and  refers  to  inflow  at  the  working 
face.  Lining  type  is  entered  in  column  5A  with  code  0  for  unlined  seg¬ 
ment,  1  for  cast-in-place  concrete  lining,  2  for  shotcrete  lining,  3  for 
precast  concrete  cut-and-cover  box,  and  A  for  precast  concrete  segmental 
lining. 

A.  The  option  for  precast  concrete  segmental  lining  was  not  in¬ 
cluded  in  the  original  COSTUN  program.  This  subroutine  was  developed  by 
NED  personnel,  based  on  limited  experience,  and  should  be  used  with  cau¬ 
tion.  Adjustments  to  the  cost  base  for  this  option  are  anticipated  as 
experience  is  gained.  This  option  requires  that  a  lining  thickness  be 
input  in  columns  55-60  and  the  specified  shape  be  circular  with  a  water¬ 
tight  lining  and  mole  excavation. 

5.  The  user  must  ensure  that  the  data  discussed  previously  for 
precast  segments  are  input,  or  the  output  will  be  erroneous.  An  error 
message  is  not  printed  out  for  erroneous  input  on  the  precast  segment 
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option.  Acceptable  conditions  tor  other  specified  lining  types,  such  as 
the  unlined  segment  (code  0),  are:  (a)  in  rt  ck  segments  if  watertight 
lining  is  not  required  (columns  73-75),  and  (by  in  soft  ground  segments 
provided  the  support  type  on  the  continuation  card  (columns  52-34)  is 
code  1,  2,  or  3  for  cast  iron  segments,  precast  concrete  segments,  or 
steel  segments,  respectively.  However,  an  unlined  segment  is  unaccep¬ 
table  in  cut-and-cover  segments.  Lining  code  1  or  2  must  be  used  in 
conjunction  with  support  code  4  in  soft  ground  segments;  code  0  or  2  is 
unacceptable  in  cut-and-cover  segments;  and  code  3  is  unacceptable  in 
rock  or  soft  ground  segments.  Lining  thickness  is  input  in  columns  55-60. 
If  left  blank,  COSTUN  will  calculate  the  thickness  of  cast-in-place 
concrete  lining  (code  1  in  column  54)  or  shotcrete  (code  2  in  column  54) . 
For  unlined  segments,  it  will  calculate  the  backplate  thickness  of  soft 
ground  segmental  supports  (code  1,  2,  or  3  in  column  54  of  continuation 
card).  For  precast  concrete  segmental  lining  (code  4  in  column  54),  the 
thickness  must  be  input.  If  a  thickness  is  input  for  code  3  (cut-and- 
cover  precast  concrete  box),  it  will  be  ignored.  Rock  or  soil  tempera¬ 
ture  is  coded  in  degrees  Fahrenheit  in  columns  61-64  for  rock  and  soft 
ground  segments.  In  column  66,  the  user  should  enter  code  0  if  formwork 
costs  for  cast-in-place  concrete  lining  are  to  be  computed  and  code  1  if 
formwork  costs  are  to  be  eliminated.  Code  1  should  be  used  when  the 
concrete  is  cast  behind  the  steel  liner  plate  that  serves  at  the  form. 
Groundwater  elevation  is  input  in  columns  67-72.  The  average  ground- 
water  elevation  within  the  segment  should  be  used.  Column  75  is  used  to 
designate  whether  a  watertight  lining  is  required.  In  this  column,  the 
user  should  enter  code  0  for  a  drained  lining  or  drained  soft  ground 
support,  or  for  groundwater  elevation  below  the  segment  invert  eleva¬ 
tion,  and  code  1  for  watertight  lining  or  soft  ground  tunnel  support. 

A  cut-and-cover  lining  is  automatically  designated  watertight.  Tunnel 
type  is  coded  in  column  80  with  1  for  rock,  2  for  soil,  and  3  for  cut 
and  cover. 

Item  7.  Tunnel  segment  continuation  card.  Include  one  card  for 
each  soft  ground  or  cut-and-cover  segment  immediately 
after  the  main  segment  card  to  which  it  applies.  Enter 
data  as  follows: 
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Columns  5-8  -  Left-ground  surface  nodal  point  number. 

Columns  9-12  -  Right-ground  surface  nodal  point  number. 

Columns  13-20  -  Effective  grain  size  ,  in  milli¬ 

metres  . 

Columns  21-24  -  Enter  the  undrained  angle  of  internal 
friction  <b  in  degrees. 

Columns  25-31  -  Enter  undrained  soil  cohesion,  in 
pounds  per  square  foot  (psf )  . 

Columns  32-36  -  Enter  saturated  unit  weight  of  soil, 
in  pounds  per  cubic  foot  (pcf).  If  no  value  is  in¬ 
put,  COSTUN  uses  the  default  value  of  120  pcf. 

Columns  37-39  -  Enter  dewatering  option;  use  code  0  if 
dewatering  is  not  permitted.  Code  1  must  be  used 
for  sloping-sided  open  cuts  if  groundwater  elevation 
is  above  the  bottom  of  the  trench  and  the  impervious 
layer  is  below  groundwater  elevation. 

Columns  40-44  -  Enter  average  elevation  of  groundwater 
within  segment. 

Columns  45-51  (optional  input)  -  Enter  soil  permeabil¬ 
ity,  in  centimetres  per  second  (cm/sec),  for  the 
strata  in  which  dewatering  or  face  stabilization  will 
occur.  If  no  value  is  input,  COSTUN  will  compute 
from  the  empirical  relationship 


where  C  is  an  empirical  factor  and  is  the 

effective  grain  size  in  millimetres. 

Column  54  (support  type)  -  Enter  code  0  for  slopir.g- 
sided  open  cuts,  1  for  soft  ground  supported  by  cast 
iron  segments,  2  for  soft  ground  supported  by  pre¬ 
cast  concrete  segments,  3  for  soft  ground  supported 
by  steel  segments,  4  for  soft  ground  supported  by 
steel  ribs  and  lagging  (used  with  lining  codes  1  or 
2  in  column  54  of  main  segment  card)  ,  5  for  vertical¬ 
sided  open  cuts  supported  by  soldier  piles  and  lag¬ 
ging,  and  6  for  vertical-sided  open  cuts  supported 
by  slurry  walls. 

Columns  55-60  -  Required  only  for  cut  and  cover.  Enter 
the  average  sound  rock  elevation  within  the  segment, 
below  which  RQD  is  greater  than  or  equal  to  50. 

Column  64  -  Required  only  for  cut  and  cover.  Enter 
the  method  of  bracing  open  cuts  with  code  0  for 
sloping-sided  open  cuts,  1  for  exclusive  use  of 
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struts,  2  for  exclusive  use  of  tieback  anchors,  and 

3  for  struts  above  the  box  roof  and  tieback  anchors 
below  the  box  roof. 

Column  66  -  Required  only  for  cut  and  cover.  Enter 
the  decking  requirement  option  with  codes  0  and  1  to 
be  used  for  no  decking,  respectively. 

Columns  67-72  (optional  input)  -  Enter  stability  num¬ 
ber.  For  vertical  open  cuts,  enter  the  value  above 
sound  rock  including  benefits  of  dewatering.  For 
soft  ground  tunnels,  enter  the  value  at  the  face, 
after  stabilization.  Leave  blank  for  sloping-sided 
open  cuts  or  when  it  is  desired  to  let  COSTUN  com¬ 
pute  the  value.  For  soft  ground  segments,  the  sta¬ 
bility  number  input  must  be  between  0  and  9  if  the 
angle  of  internal  friction  is  less  than  29  deg  and 
must  be  between  0  and  7  if  the  angle  of  internal 
friction  is  greater  than  or  equal  to  29  deg. 

Column  74  -  Required  only  for  soft  ground.  Enter  the 
soft  ground  face  stabilization  method  with  code  0  if 
no  stabilization  method  is  to  be  used,  or  if  1  or  2 
is  entered  in  column  75,  1  for  compressed  air,  2  for 
dewatering,  and  3  for  ground  injections. 

Column  75  -  Required  only  for  soft  ground.  Enter  code  1 
to  allow  COSTUN  to  select  method  for  face  stabiliza¬ 
tion  and  check  for  increased  stability  (reduce  sta¬ 
bilization  number)  based  solely  on  input  parameters 
and  internal  calculations.  Use  code  2  to  have  COSTUN 
select  a  stabilization  method  only  if  the  tunnel 
otherwise  cannot  be  excavated,  3  to  have  COSTUN  use 
the  preferred  method  entered  in  column  74  above  only 
if  the  tunnel  otherwise  could  not  be  excavated,  and 

4  if  the  method  entered  in  column  74  is  to  be  used 
regardless  of  face  stability.  If  code  1  or  2  is  en¬ 
tered  in  column  75,  column  74  must  be  blank  or  con¬ 
tain  a  zero;  if  code  3  is  entered  in  column  75,  a 
method  must  be  specified  in  column  74.  Columns  67-72 
must  be  blank  if  code  1,  2,  or  3  is  entered  in 
column  75.  A  stability  number  or  stabilization 
method  must  be  entered  in  columns  67-72  if  code  4 

is  entered  in  column  75. 

Columns  76-80  -  Required  only  for  soft  ground.  Enter 
the  air  pressure,  in  psi,  between  0  and  50  to  be 
used  for  face  stabilization.  Zero  must  be  entered 
if  column  74  does  not  contain  code  1  and  if  column  75 
does  not  contain  code  3  or  4.  If  compressed  air  is 
specified  (code  1)  or  selected  in  column  74,  then  the 
air  pressure  must  be  greater  than  zero  in 
columns  76-80. 
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Enter  999999  in  columns  1-6. 


Item  9.  Tunnel  reach  data.  Include  one  card  per  reach. 

Columns  1-4  -  Enter  the  reach  number. 

Columns  5-8  -  Enter  the  exit  shaft  number. 

Columns  9-14  -  Required  only  for  rock  or  soft  ground. 
Enter  the  characteristic  finished  dimension,  in  feet, 
with  any  number  from  10  to  40. 

Column  17  -  Required  only  for  rock  or  soft  ground. 

Enter  the  tunnel  shape  with  code  1  for  circular,  2 
for  horseshoe,  and  3  for  baskethandle . 

Column  20  -  Required  only  for  rock  or  soft  ground. 

Enter  the  muck  transport  method  with  code  1  for 
truck,  2  for  conveyor,  3  for  train,  and  4  for  con¬ 
veyor  in  compressed  air  and  truck  in  free  air. 

Columns  21-25  (optional  input)  -  Enter  the  number  of 
work  hours  per  day.  If  no  value  is  input,  the  de¬ 
fault  value  of  24  hr  is  used. 

Columns  26-29  (optional  input)  -  Enter  the  number  of 
work  days  per  week.  Default  value  is  6. 

Columns  30-32  -  Required  only  for  cut  and  cover.  Enter 
the  number  of  contiguous  box  units  in  a  single-level 
cut-and-cover  box. 

Columns  33-37  -  Required  only  for  cut  and  cover.  En¬ 
ter  finished  box  width,  in  feet.  For  a  single-level 
box,  width  equals  clear  span  times  number  of  units. 

For  a  double-level  box,  width  equals  two  times  the 
single  level  width.  Any  positive  number  between  10 
and  40  may  be  input. 

Columns  38-42  -  Required  only  for  cut  and  cover.  En¬ 
ter  finished  box  height,  in  feet.  For  single-level 
box,  height  equals  clear  height  of  one  unit;  height 
of  double-level  box  equals  two  times  clear  height  of 
one  unit.  Any  positive  number  between  10  and  20  is 
permissible  for  a  single-level  box  and  between  10 
and  40  for  a  double-level  box. 

Columns  43-45  -  Required  only  for  cut  and  cover.  En¬ 
ter  the  select  box  option  with  codes  0  and  1  to  be 
used  for  single-level  and  double-level  box,  respec¬ 
tively. 

Item  10.  Data  separator  (one  card).  Enter  999999  in  columns  1-6. 

Item  11.  Shaft  segment  data.  Include  one  card  per  segment. 

Data  for  soft  ground  and  cut-and-cover  segments  are 

continued  on  a  second  card.  For  rock  shaft  segments, 

dummy  shafts,  or  portals,  the  continuation  card  must 

be  omitted. 
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Columns  1-4  -  Shaft  number. 

Columns  5-8  -  Segment  number.  Enter  any  positive  in¬ 
teger  from  1  to  999.  Within  any  shaft,  the  segment 
numbers  must  be  exclusive,  but  in  different  shafts, 
the  numbers  may  be  duplicated.  Shaft  segment  num¬ 
bers  need  not  be  in  sequence,  but  sequential  arrange¬ 
ment  of  cards  must  be  from  top  to  bottom  of  shafts. 

Columns  9-12  -  Upper  nodal  point  number.  Enter  the 
number  of  the  nodal  point  at  the  top  of  the  segment. 

Columns  13-16  -  Lower  nodal  point  number.  Enter  the 
number  of  the  nodal  point  at  the  bottom  of  the  seg¬ 
ment;  if  a  portal,  this  number  should  be  identical 
with  the  upper  nodal  point  number. 

Columns  25-32  -  Required  only  for  rock.  Enter  intact, 
UC  rock  strength,  in  psf  or  in  psi,  with  any  posi¬ 
tive  number.  Leave  blank  when  the  shaft  is  a  portal. 

Columns  33-36  -  Required  only  for  rock.  Enter  RQD  in 
percent,  with  any  positive  number  from  25  to  100. 
Leave  columns  blank  when  the  shaft  is  a  portal. 

Columns  37-39  -  Required  only  for  rock  or  soft  ground. 
Enter  the  excavation  method  with  code  1  for  conven¬ 
tional  rock  excavation,  2  for  moled  rock  excavation, 

3  for  moled  soft  ground  excavation,  or  4  for  hand 
excavation  in  soft  ground.  Leave  blank  when  the 
shaft  is  a  portal  or  a  dummy.* 

Columns  40-45  (optional  input)  -  Enter  uniform  advance 
rate  with  any  positive  number,  in  feet  per  working 
day;  if  blank  or  contains  a  zero,  COSTUN  computes 
the  advance  rate.  Leave  blank  when  the  shaft  is  a 
portal  or  a  dummy. 

Columns  46-48  -  Rock  only.  For  water  inflow,  enter 
code  1  for  waterbearing  formations;  leave  blank  when 
the  shaft  is  a  portal  or  for  dry  formations.  Con¬ 
trol  of  inflow  in  shafts  is  assumed  to  be  invariant. 
If  inflow  occurs,  grouting  around  the  perimeter  of 
the  shafts  is  the  assumed  control  method.  Costs  are 
based  on  grout  holes  drilled  on  5-ft  centers  around 
the  perimeter  of  the  shaft  for  the  entire  thickness 
of  the  waterbearing  formation. 

Columns  49-51  -  Lining  type.  For  unlined  segment, 
portal,  or  dummy,  enter  code  0  or  leave  blank;  for 
cast-in-place  concrete  lining,  code  1;  for  shotcrete 


*  Note:  A  dummy  shaft  is  an  imaginary  shaft  used  for  internal  bookkeep¬ 
ing  purposes  only  to  separate  segments  constructed  by  different  excava¬ 
tion  methods.  No  costs  are  calculated  for  a  dummy  shaft. 
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lining,  code  2;  and  for  precast  cut-and-cover  lining, 
code  3.  An  unlined  segment  is  acceptable  in  rock 
segments  provided  a  watertight  lining  (columns  66-68) 
is  not  required;  in  soft  ground  segments  provided 
the  support  type  (columns  49-51  on  continuation  card) 
is  code  1,  2,  or  3;  and  in  cut-and-cover  segments 
provided  the  shaft  is  a  portal  or  a  dummy.  When 
lining  code  1  or  2  is  used  in  conjunction  with  sup¬ 
port  code  4  in  soft  ground  segments,  code  1  or  2  is 
unacceptable  in  cut-and-cover  segments,  and  code  3 
is  unacceptable  for  rock  or  soft  ground  segments. 

Columns  52-57  (optional  input)  -  For  lining  thickness, 
enter  any  positive  number,  in  inches;  leave  blank 
when  shaft  is  a  portal  or  a  dummy.  A  thickness  may 
be  input  for  code  0,  1,  or  2  above;  for  code  0,  the 
value  input  refers  to  the  backplate  thickness  of 
segmented  soft  ground  shaft  supports  (code  1,  2,  or 
3  in  columns  49-51  of  continuation  card). 

Columns  58-59  -  For  formwork  to  be  used  in  conjunction 
with  cast-in-place  concrete  linings  in  soft  ground 
or  rock  segments,  enter  code  0  or  leave  blank  if 
formwork  costs  are  to  be  computed  and  code  1  if  form- 
work  costs  are  to  be  eliminated.  Code  1  should  be 
used  if  the  concrete  is  to  be  cast  behind  a  steel 
liner  that  serves  as  the  form.  Note  that  the  cost 
of  the  steel  liner  is  not  computed  by  COSTUN. 

Columns  60-65  -  Croundwater  elevation.  Leave  blank  for 
a  portal  or  a  dummy  shaft.  Enter  any  number  repre¬ 
senting  the  average  groundwater  elevation  for  the 
entire  shaft. 

Columns  66-68  -  Watertight  lining  or  soft  ground  shaft 
support.  For  an  unlined  shaft  segment,  for  a  drained 
lining  or  drained  soft  ground  support,  for  a  ground- 
water  table  below  the  segment,  or  for  a  portal  or 
dummy  shaft,  enter  code  0  or  leave  blank;  for  a 
watertight  lining  or  soft  ground  shaft  support,  en¬ 
ter  code  1.  Note  that  a  cut-and-cover  lining  is 
automatically  designed  as  watertight. 

Columns  69-73  -  Shaft  type.  For  rock,  dummy,  or  por¬ 
tal,  enter  code  1;  for  soft  ground,  code  2;  and  for 
cut  and  cover,  code  3. 

Item  12.  Shaft  segment  continuation  card.  Include  this  card 
only  if  the  segment  is  soft  ground  or  cut  and  cover 
(code  2  or  3  in  columns  69-73  of  main  card).  This 
card  must  be  placed  immediately  behind  the  main  card 
to  which  it  applies. 
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,  in  milli- 


Columns  17-24  -  Effective  grain  size 
metres . 

Columns  25-32  -  For  undrained  soil  cohesion,  in  psf, 
enter  zero  or  blank  or  any  positive  number.  Usually 
this  value  is  zero  for  sands  and  gravels,  but  it 
cannot  be  zero  if  columns  37-39  below  are  also  zero 
or  blank. 

Columns  33-36  (optional  input)  -  For  unit  weight  of 
soil,  in  pcf,  enter  zero  or  blank  or  any  positive 
number  up  to  200.  If  no  value  is  input,  COSTUN  will 
assume  120. 

Columns  37-39  -  Undrained  angle  of  internal  friction, 
in  degrees. 

Columns  40-45  -  For  elevation  of  impervious  layer,  en¬ 
ter  any  number  representing  the  elevation  for  the 
segment.  Not  required  for  soft  ground  segments  if 
dewatering  is  not  permitted  or  if  the  ground  is  not 
capable  of  being  dewatered  (D  S  0.08  mm  or  PERM 
<  0.0006  cm/sec);  not  required  for  cut-and-cover 
segments . 

Columns  46-48  -  Dewatering  permitted.  For  cut-and- 
cover  segments  or  if  lowering  of  the  groundwater 
table  by  pumping  is  not  permitted,  enter  code  0  or 
leave  blank;  if  lowering  of  the  groundwater  table 
is  permitted,  enter  code  1. 

Columns  49-51  -  Support  type.  For  soft  ground  sup¬ 
ported  by  cast  iron  segments,  enter  code  1;  for  soft 
ground  supported  by  precast  concrete  segments,  code  2 
for  soft  ground  supported  by  steel  segments,  code  3; 
for  soft  ground  supported  by  steel  ribs  and  lagging 
(used  with  lining  code  1  or  2  in  columns  49-51  on 
main  segment  card),  code  4;  and  for  cut-and-cover 
construction,  code  5. 

Columns  52-59  (optional  input)  -  For  soil  permeability, 
in  cm/sec,  enter  the  permeability  at  the  level  in 
which  dewatering  or  face  stabilization  will  occur; 
omit  for  cut-and-cover  segments.  If  no  value  is  in¬ 
put,  COSTUN  will  compute  if  needed. 

Columns  60-65  (optional  input)  -  Stability  number.  For 
soft  ground  segments,  enter  the  value  at  the  face  in¬ 
cluding  the  effect  of  any  stabilization  methods;  for 
cut-and-cover  segments,  leave  blank.  If  no  value  is 
to  be  input  or  if  it  is  desired  to  let  COSTUN  compute 
it,  enter  code  0  or  leave  blank.  Otherwise,  input 
any  number  from  0  to  9  if  PHI<  29  or  any  number  from 
0  to  7  if  PHI  >  29. 


Columns  66-67  -  Required  only  for  soft  ground.  Stabi¬ 
lization  method;  in  conjunction  with  column  68  below, 
the  soft  ground  face  stabilization  method  either  pre¬ 
ferred  or  desired  to  be  used;  for  required  use  of  no 
method  or  for  code  1  or  2  in  column  68,  enter  code  0 
or  leave  blank;  for  stabilization  by  compressed  air, 
code  1;  for  stabilization  by  dewatering,  code  2;  and 
for  stabilization  by  ground  injections,  code  3. 

Column  68  -  Required  only  for  soft  ground.  To  allow 
COSTUN  to  select  a  face  stabilization  method  and 
check  for  a  significant  reduction  in  the  stability 
number  based  solely  on  input  parameters,  enter  code  1; 
to  have  COSTUN  select  a  stabilization  method  only  if 
the  tunnel  could  not  otherwise  be  excavated,  code  2; 
to  have  COSTUN  use  the  preferred  stabilization  meth¬ 
od  (columns  66-67  above)  only  if  the  shaft  could  not 
otherwise  be  excavated,  code  3;  to  have  COSTUN  use 
the  given  stabilization  method  regardless  of  the  face 
stability,  code  4.  For  code  1  or  2,  a  face  stabili¬ 
zation  method  must  not  be  specified  in  columns  66 
and  67;  for  code  3,  a  method  must  be  specified  in 
columns  66  and  67;  for  codes  1,  2,  and  3,  a  stabil¬ 
ity  number  must  not  be  input  in  columns  60-65;  and 
for  code  4,  either  a  stability  number  or  a  stabili¬ 
zation  method  (both  are  also  acceptable)  must  be  in¬ 
put  (blank  or  zero  in  columns  66  and  67  indicates  no 
stabilization  method  is  to  be  used) . 

Columns  69-73  -  Required  only  for  soft  ground.  For 
the  air  pressure  to  be  used  for  face  stabilization, 
in  psi,  input  any  positive  number  from  0  to  50.  If 
a  stability  number  is  input  and  the  stabilization 
method  selected  is  compressed  air,  a  number  greater 
than  zero  must  be  input;  a  value  other  than  0  must 
not  be  specified  if  columns  66-67  do  not  contain 
code  1  and  if  column  68  does  not  contain  code  3  or  4. 

Item  13.  Data  separator  (one  card).  Enter  999999  in  columns  1-6. 

Item  14.  Shaft  data.  Include  one  card  per  shaft. 

Columns  1-4  -  Shaft  number. 

Columns  5-10  -  Shaft  size.  Enter  the  characteristic 
finished  dimension,  in  feet,  with  any  number  from 
10  to  40.  Leave  blank  when  the  shaft  is  a  portal 
or  a  dummy. 

Columns  11-13  -  Shaft  shape.  For  a  dummy  or  portal, 
enter  code  0  or  leave  blank;  for  a  circular  shape, 
code  1;  and  for  a  square  shape,  code  2. 

Columns  14-21  -  Distance  to  disposal.  Enter  distance 
to  user-selected  disposal  site,  in  miles. 


Columns  22-28  -  Cost  of  the  disposal  site,  in  dollars 
per  acre. 

Columns  29-32  -  For  aboveground  air  temperature,  in 
degrees  Fahrenheit,  any  positive  or  negative  number 
is  entered  but  can  be  omitted  if  all  reaches  associ¬ 
ated  with  the  shaft  are  cut  and  cover. 

Columns  33-38  -  Labor  cost  index.  Calculate  by  divid¬ 
ing  the  cost  of  labor  for  period  of  consideration  by 
costs  of  labor  in  Chicago  in  1969.  This  value  was 
$35.17  in  Chicago  in  1969  and  consisted  of  hourly 
wages  and  fringes  for  heavy  construction,  one  each; 
common  labor  plus  skilled  iron  workers  plus  hoisting 
engineers  plus  tractor  operators  plus  air  compressor 
operator  plus  truck  driver.  This  mix  is  representa¬ 
tive  of  labor  employed  in  tunnel  construction.  Rates 
are  published  monthly  by  Engineering  News  Record 
(Eh’R)  for  20  cities  and  annually  for  an  additional 
25  cities.  In  addition,  information  on  labor  rates 
may  be  obtained  by  contacting  the  U.  S.  Bureau  of 
Labor  Statistics,  union  offices,  or  local  employment 
offices. 

Columns  39-44  -  Equipment  cost  index.  Based  on  ENR 
quarterly  report  of  "Equipment  List  Price  Trends, 

All  Types  of  Equipment."  Equipment  Cost  Index  is 
calculated  by  dividing  the  index  value  for  the  peri¬ 
od  of  consideration  by  the  index  value  in  1969, 
which  was  110.4  on  a  base  of  100  for  1967. 

Columns  45-50  -  Material  cost  index.  Calculate  by  di¬ 
viding  the  ENR  Construction  Cost  Index,  material 
prices  for  location  of  the  project  for  the  period  of 
project  construction,  by  the  Chicago  index  for  1969. 
The  unit  of  materials  to  use  consists  of  22.5  cwt 
bulk  cement,  carload  lots  (prior  to  1972  used  6  bbls) 
1  Mfbm  of  pine  or  fir  2x4's,  and  25  cwt  standard 
structural  steel  shapes,  W8x31,  base  price,  FOB 
warehouse.  The  1969  Chicago  cost  of  these  mtls  was 
$402.50. 

Columns  51-56  -  Regional  cost  factor.  Used  to  assess 
construction  cost  differences  in  various  regions  of 
the  United  States.  Enter  0.9  for  Chicago,  1.2  for 
San  Francisco,  2.0  for  New  York  City,  0.8  for  all 
other  areas,  or  any  other  number  the  user  deems 
appropriate . 

Columns  57-61  (optional  input)  -  For  work  hours  per 
day,  enter  any  positive  number  from  0  to  24.  If  no 
value  is  input,  24  will  be  assumed. 
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Columns  62-65  (optional  input)  -  For  work  days  per 
week,  enter  any  positive  number  from  0  to  7.  If  no 
value  is  input,  6  will  be  assumed. 

Item  15.  Data  separator  (one  card).  Enter  999999  in 
columns  1-6. 

Item  16.  End  of  system  (one  card) .  Enter  end  of  system  in 
columns  1-13. 

6.  At  this  point,  input  decks  for  additional  tunnel-shaft 
systems  may  be  prepared.  The  additional  decks  should  start  with  the 
title  cards  and  end  with  the  end  of  system  card  above .  The  additional 
system  data  decks  may  be  stacked  for  a  single  computer  run.  Final  job 
control  cards  are  placed  behind  the  last  end  of  system  card. 

Fatal  errors 

7.  Data  inputs  that  would  cause  material  inaccuracies  in  the 
problem  solution  and  that  can  be  identified  by  internal  checks  in  sub¬ 
routines  INPUT,  SFTSET,  and  LENCTH  are  programmed  to  halt  execution  of 
the  computations.  Such  inputs,  are,  therefore,  called  "fatal"  errors, 
ihe  following  tabulation  is  a  complete  listing  of  all  fatal  errors 
checked  in  INPUT,  SFTSET,  and  LENCTH.  The  Format  Statement  Number  is 
the  number  of  the  statement  in  the  program  listing  that  will  be  printed 
out  as  a  result  of  the  error.  All  are  checked  in  INPUT  except  as  noted 
in  paragraph  7. 


Format  Statement  No. 


Description 

Tunnels 

Shafts 

No  separator  card  after  nodal  point  card 

1500 

1500 

Duplicate  nodal  point  number 

1013 

1013 

Nodal  point  < 1  or  >  NPMAX* 

NPMAX  =  max.  no.  of  nodal  points 

1001 

1001 

Number  of  segments  >  NTSMAX*  or  NSSMAX* 

NTSMAX  =  max.  no.  of  tunnel  segments  allowed 

NSSMAX  =  max.  no.  of  shaft  segments  allowed 

1016 

1017 

No  separator  card  after  tunnel  segment  data  or 
tunnel  type  coded  incorrectly 

1501/2000 

*  See  the  program  listing  (paragraph  16)  for  present 

dimensions 

of  these 

variables . 
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Format  Statement  No. 


Description 

Tunnels 

Shafts 

Duplicate  reach  or  shaft  number 

1022 

1023 

Segment  card  out  of  sequence 

1015 

1115 

Nodal  point  card  omitted 

1031 

1131 

Excavation  method  coded  incorrectly 

1030 

1029 

Excavation  method  does  not  match  tunnel  or  shaft  type 

2005 

2210 

Thickness  specified;  no  lining 

1045 

1046 

Lining  type  coded  incorrectly 

1043 

1048 

Lining  type  does  not  match  tunnel  or  shaft  type 

2010 

2220 

Input  advance  rate  less  than  zero 

1065 

1075 

Watertight  lining  requirement  coded  incorrectly 

2015 

2225 

No  lining  or  support  specified  for  watertight  tunnel 
or  shaft 

2020 

2230 

RQD < 25  in  rock  tunnel  or  shaft 

2030 

2212 

RQD  <  0  or  >  100 

1062 

1072 

Surface  nodal  point  out  of  sequence 

2040 

— 

Surface  nodal  point  card  omitted 

2045 

— 

Surface  nodal  point  elevation  below  tunnel 

2050 

— 

Effective  grain  size  not  specified 

2055 

2245 

Soil  strength  not  specified 

2060 

2250 

Friction  angle  >  100  deg 

2063 

2253 

Unit  weight  of  soil  >  200  pcf 

2064 

2254 

Dewatering  requirement  coded  incorrectly 

2065 

2255 

Impervious  layer  above  ground  surface 

2072 

— 

Impervious  layer  at  ground  surface,  soil  not  clay 

2073 

— 

Impervious  layer  above  base  of  shaft  segment 

— 

2262 

Support  type  coded  incorrectly 

2075 

2265 

Support  type  does  not  match  tunnel  or  shaft  typ' 

2080 

2270 

Lining  type  does  not  match  support  type 

2085 

2275 

Rock  elevation  above  ground  surface 

2092 

— 

Bracing  code  <  0  or  >3 

2095 

— 

Bracing  code  for  vertical  cut  ^  0 

2100 

— 

Decking  coded  incorrectly 

2105 

— 

Format  Statement  No. 


Description 


Stability  number  too  high;  excavation  impossible 

Stabilization  method  coded  incorrectly 

Stabilization  use  coded  incorrectly 

Air  pressure  not  specified  for  compressed  air 
stabilization  with  input  stability  number 

Stability  number  specified;  incorrect  stabilization 
use  code 

Air  pressure  specified;  compressed  air 
stabilization  not  specified 

Stabilization  use  code  does  not  match  method 

Unacceptable  stabilization  method  input 

No  separator  card  after  reach  data 

Reach  number  <  1  or  >  NTRMAX 


Size  indicates  cut-and-cover ;  shape  code  is  not  zero 
Shape  indicates  cut  and  cover;  size  in  wrong  column 
Duplicate  reach  or  shaft  data  cards 
Muck  transport  method  coded  incorrectly 
Shape  coded  incorrectly 

Shape  indicates  cut  and  cover;  muck  transport 
method  specified 

No  muck  transport  method  specified 
Work  hours  per  day  <  0  or  >24 
Work  days  per  week  <  4  or  >7 
Box  dimension(s)  not  input 

Number  of  box  units  not  specified  for  cut  and  cover 

Noncircular  shape  for  mole  excavation 

Compressed  air  required;  truck  muck  transport 
specified 

Cast  iron  support  specified  for  noncircular  shape 

Tunnel  is  not  cut  and  cover;  no  shape  specified 

Shape  specified  is  not  for  cut  and  cover 

RQD  of  sound  rock  <  25  for  cut  and  cover 

Sloping  cut  through  pervious  ground  below  GWT; 
dewatering  must  be  allowed 


Tunnels 

Shafts 

2115 

2285 

2120 

2290 

2125 

2295 

2130 

2300 

2135 

2305 

2137 

2307 

2140 

2310 

2147 

2320 

1502 

— 

1021 

— 

2150 

— 

2151 

— 

1026 

1027 

1041 

— 

1042 

2325 

2152 

— 

2153 

— 

2155 

2335 

2160 

2340 

2165 

— 

2175 

— 

1040 

2355 

2195 

— 

2200 

2350 

2201 

— 

2202 

— 

2204 

_ 

2205 


Format  Statement  No. 


Description 

Tunnels 

Shafts 

Segment  in  nonexistent  reach  or  shaft 

1200 

1201 

Reach  or  shaft  number  not  referred 

to 

1203 

1204 

Reach  ends  at  nonexistent  shaft 

1202 

— 

Shaft  number <  1  or>NSMAX 

— 

1034 

Groundwater  elevation  within  shaft 

segment 

— 

2240 

Shaft  inflow  coded  incorrectly 

— 

1047 

Shape  indicates  a  dummy  shaft,  size 

given 

— 

2330 

Size  indicates  a  dummy  shaft,  shape 
or  blank 

code  not  zero 

2332 

Square  shaft  in  rock 

— 

2345 

Missing  separator  card  after  shaft 
shaft  type  coded  incorrectly 

segment  data, 

,  or 

1503/2207 

No  separator  card  after  shaft  data 

— 

1504 

No  cut-and-cover  segments  in  a  cut- 
shaft  (SFTSET) 

and-cover 

1000 

No  cut-and-cover  segment  adjacent  to  dummy  shaft 
(LENGTH) 

2000 

8.  Fatal  errors  may  also  be  detected  after  some  preliminary  pro¬ 
cessing  in  subroutines  CALCS,  AIRPRS  and  STABIL  that  are  identified  in 
the  program  listing.  In  this  case,  the  calculated  tunnel  data  and  cal¬ 
culated  shaft  data  will  be  printed  out  (unless  suppressed),  and  then  the 
program  execution  will  be  halted.  Fatal  errors  in  this  category  are 
listed  below. 


Format 

Statement  No. 


Description 

Tunnels 

Shafts 

Subroutine 

Stability  number  too  high  after  stabili¬ 
zation;  excavation  impossible 

2000 

3000 

STABIL 

Stabilization  is 
not  acceptable 

required 

but 

input 

method 

2030 

3030 

STABIL 

Stabilization  is 
not  effective 

required 

but 

input 

method 

2035 

3035 

STABIL 

A16 
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Format 


Statement  No. 

Descript  ion 

Tunnels 

Shaf  ts 

Subroutine 

Stabilization  is  required  but  input  speci¬ 
fies  no  method  must  be  used 

2050 

3050 

STABIL 

Excavation  impossible  by  using  air  pres¬ 
sure  <  50  psi 

2000 

3000 

A1RPRS 

Haul  slope  too  steep  for  a  train 

1020 

— 

CALCS 

Tunnel  too  small  for  a  truck 

1021 

— 

CALCS 

Slope  too  steep  for  muck  transport  methods 

1023 

— 

CALCS 

Truck  muck  transport  in  compressed  air 
tunnel 

1025 

— 

CALCS 

Nonfatal  errors 

9.  Data  inputs  that  are  beyond  the 

range  for 

wh i c h  the 

cost  re- 

lationships  are  believed  to  apply  with  accuracy  are 

nonfatal  errors. 

These  errors  will  not  halt  execution  of  the 

program. 

but  a  warning  will 

be  printed  out  to  call  attention  to  their  existence. 

Included 

in  the 

category  of  nonfatal  errors  are  various  reminders  and  warnings 

as  to  the 

final  use  of  certain  input  data. 

Format 

Statement  No. 

Description 

Tunnels 

Shafts 

Subroutine 

Rock  strength  <  500  psi 

1060 

1070 

INPUT 

Cut-and-cover  segments  are  watertight 

2017 

2227 

INPUT 

Groundwater  elevation  is  zero  or  blank, 
used  zero 

2025 

2235 

INPUT 

RQD  >  25  for  soft  ground  tunnel 

2035 

2215 

INPUT 

Coefficient  of  permeability  >10  cm/sec 

2061 

2251 

INPUT 

Friction  angle  >  45  deg 

2062 

2251 

INPUT 

Impervious  layer  elevation  is  zero  or 
blank,  used  zero 

2070 

2260 

INPUT 

Rock  elevation  is  zero  or  blank,  used  zero 

2090 

— 

INPUT 

Cut-and-cover  box  deeper  than  100  ft 

2094 

— 

INPUT 

Stabilization  method  is  not  acceptable 

2145 

2315 

INPUT 

Size  <  10  or  >  40  ft 


1064 


1074 


INPUT 


Format 

Statement  No. 


Description 

Tunnels 

Shafts 

Subrout ine 

Box  width  exceeds  40  ft 

23:70 

— 

INPUT 

Box  height  >  20  ft  for  single-level  box 

2180 

— 

INPUT 

Box  height  >40  ft  for  double-level  box 

2185 

— 

INPUT 

Impervious  layer  above  tunnel,  D^q  >  0.005 

2190 

— 

INPUT 

RQD  of  sound  rock  is  25-50  for  cut  and 
cover 

2203 

— 

INPUT 

No  excavation  method  specified;  dummy  shaft 
assumed 

— 

2208 

INPUT 

Dummy  shaft,  cost=0 

— 

2327 

INPUT 

Shaft  depth  >  3000  ft 

— 

1071 

LENGTH 

Reach  length  >  20  miles 

1061 

— 

LENGTH 

Input  thickness  less  than  standard 
design,  input  ignored 

1010 

1011 

SIZEST/SIZESS 

Input  thickness  appear  to  be  inadequate 
for  water  pressure 

2710 

2711 

SIZEST/SIZESS 

Lining  thickness  was  input  for  cut-and- 
cover  box 

3500 

— 

SIZEST/SIZESS 

Croundwater  below  segment;  input  inflow 
ignored 

3600 

3605 

SIZEST/SIZESS 

Stabilization  method  not  effective;  no 
method  used 

2010 

3010 

STABIL 

Input  stabilization  method  not  required 

2015 

3015 

STAB  I L 

Input  stabilization  method  not  accep¬ 
table  nor  required 

2020 

3020 

STABIL 

Stabilization  method  not  effective; 
method  used  anyway 

2025 

3025 

STABIL 

Hand  excavation  used  rather  than  input 
method 

2040 

3040 

STABIL 

Conveyor/truck  transport  used  rather 
than  input  method 

1030 

„ 

CALCS 

10.  Several  of  the  above  messages  are  caused  by  elevations  that 
are  not  associated  with  nodal  points.  INPUT  makes  extensive  checks  for 
missing  input  data.  Unfortunately,  the  computer  cannot  distinguish  be¬ 
tween  a  zero  and  a  blank  data  field.  Therefore,  COSTUN  cannot  be  cer¬ 
tain  that  the  user  meant  elevation  0  or  just  forgot  to  input  a  number. 
These  messages  can  be  avoided  by  specifying  an  elevation  close  to  zero, 
like  0.1  or  0.01,  if  elevation  0  is  indeed  desired. 

Program  Execution  and  Printout 


Program  execution 

11.  COSTUN  is  executed  in  core.  During  operation  it  neither  re¬ 
fers  to  information  stored  on  another  tape  nor  generates  another  data 
tape.  Therefore,  no  special  operating  instructions  are  necessary. 

12.  The  program  stores  most  data  in  one  of  five  arrays  (A,  B, 

CNP,  SHAFT,  and  TRDATA) .  These  five  arrays  are  stored  in  one  main  array 

called  ARRAY.  This  procedure  allows  the  user  to  alter  the  storage  re¬ 
quirements  of  COSTUN.  The  storage  requirements  are  a  function  of  the 
allowable  number  of  tunnel  and  shaft  segments,  tunnel  reaches,  and 
shafts.  COSTUN  as  written  provided  for  NTSMAX  (maximum  number  of  tunnel 
segme.i's)  =  300,  NSSMAX  (maximum  number  of  shaft  segments)  =  300,  NSMAX 
(maximum  number  of  shafts)  =  100,  and  NTRMAX  (maximum  number  of  reaches) 
200.  The  version  presented  in  the  program  listing  allows  NTSMAX  **  20, 
NSSMAX  =  10,  NSMAX  =  10,  and  NTRMAX  =  20. 

13.  The  storage  requirements  can  be  changed  by  changing  any  or 

all  four  of  these  key  variables  in  the  main  program.  If  the  change  is 

made  after  the  initial  compilation,  then  only  the  main  program  needs  to 
be  recompiled.  If  these  variables  are  made  larger,  the  dimension  of  ARRAY 
(firs  ecute  card  in  MAINLINE)  must  be  increased.  If  these  variables 
are  made  smaller,  the  dimension  of  ARRAY  need  not  be  changed,  but  failure 
to  do  so  will  result  in  paying  for  more  computer  storage  than  necessary. 

i  r  inimurn  dimension  of  ARRAY  is  given  by 

•••'.  v  -  -  74  X  NTSMAX  +  46  X  NSSMAX  +  23  X  NSMAX  +  23  X  NTRMAX 


14.  For  the  values  originally  provided  for  these  four  key  vari¬ 
ables,  the  minimum  dimension  of  ARRAY  was  42,900.  If  the  dimension  of 
ARRAY  is  changed  to  less  than  the  minimum  required  dimension,  a  message 
will  be  printed  and  the  computer  run  will  terminate.  Whenever  the  di¬ 
mension  of  ARRAY  is  changed,  the  value  of  MM  (fifth  execute  card  in 
MAINLINE)  must  also  be  changed  to  that  of  the  new  dimension  of  ARRAY'. 

The  present  dimension  of  ARRAY  is  2630.  This  size  allows  most  tunnels 
to  be  estimated  without  problems  and  saves  some  storage  costs. 

Printout 

15.  The  printout  consists  of  the  tunnel  and  shaft  title  and  all 
other  input  data,  unless  the  suppress  option,  described  previously  in 
paragraph  3,  is  used  to  suppress  one  or  more  items  of  input  data.  After 
the  selected  input  is  printed  out,  the  program  prints  out  calculated 
tunnel  data,  consisting  of  length,  slope,  excavated  dimensions  and  quan¬ 
tities,  advance  rates,  lining  thickness,  pump  rates  and  heads,  and  con¬ 
struction  time.  Position  of  the  airlock,  if  used,  stabilization  method 
used,  unit  weights,  permeability,  concrete  volumes,  and  backfill  volumes 
are  listed  where  appropriate  for  each  tunnel  segment  within  each  reach. 
The  same  categories  of  calculated  data  are  printed  out  for  each  shaft 
under  the  heading,  "Calculated  Shaft  Data."  Next,  tunnel  costs  are  lis¬ 
ted  by  reach  and  segment  number  under  column  headings  for  excavation 
setup,  excavation,  muck  loading,  muck  hauling,  muck  hoisting,  muck  dis¬ 
posal,  supports,  lining,  lining  formwork,  grouting,  pumping,  and  air 
conditioning,  and  these  unit  costs  are  tallied  to  obtain  the  segment 
cost  per  foot  and  total  segment  costs,  which  are  printed.  This  process 
is  repeated  for  each  segment.  Then  a  summary  of  reach  costs  is  printed, 
applying  the  cost  adjustment  factors  to  labor  costs,  equipment  costs, 
and  material  costs  to  obtain  total  reach  costs.  Such  a  printout  is  also 
prepared  for  each  reach  and  for  each  shaft.  A  "Tunnel  Reach  Cost  Summa¬ 
ry"  is  printed  next,  applying  the  Regional  Cost  Factor  to  the  total, 
followed  by  a  similar  "Shaft  Cost  Summary."  The  final  output  block  re¬ 
prints  the  project  title  and  the  profit  and  overhead  margins,  and  then 
lists  the  project  summary  costs  for  labor,  equipment,  and  materials,  and 
the  total  costs. 
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Program  Listing 


16. 


A  listing  of  program  COSTUN  is  given  below. 


mainline  procram  -  costun  . — . — . . 

DIMENSION  ARRAY  (£630) 

COMMON  /BASIC/  NSS.NTS 

COMMON  /A/  LO, LI ,PM,CM,LIST ( 40  ), TITLE! 160 ),STABEG, I  TYPE 

COMMON/F/  IERROR.ISTOP 

CONMON/O/  TUNLC , TUNEC , TUNMC , TUNTC 

WHENEVER  THE  DIMENSION  OF  'ARRAY'  IS  CHANGED,  THE  VALUE  OF  MM 
BELOW  MUST  ALSO  BE  CHANGED  TO  THAT  OF  THE  NEU  DIMENSION  OF  'ARRAY' 

MN-2630 

NSMAX-10 

NSSMAX-10 

NTRMAX-20 

NTSMAX-20 

NPMAX-NSSMAX»2*NTSMAX 
J1  •  STORAGE  LOCATION  IN  'ARRAY' 

J2  •  STORACE  LOCATION  IN  'ARRAY' 

J3  ■  STORAGE  LOCATION  IN  'ARRAY' 

J4  •  STORAGE  LOCATION  IN  'ARRAY' 

JS  ■  STORAGE  LOCATION  IN  'ARRAY' 

J6  •  STORAGE  LOCATION  IN  'ARRAY' 

J1  ■  1 


000020  0000 
000030  0000 

000040  0000 


OF  FIRST  ITEM  IN 
OF  FIRST  ITEM  IN 
OF  FIRST  ITEM  IN 
OF  FIRST  ITEM  IN 
OF  FIRST  ITEM  IN 
OF  FIRST  ITEM  IN 


A'  ARRAY 
8'  ARRAY 
CNR-  ARRAY 
'SHAFT'  ARRAY 
■TRDATA'  ARRAY 
CUMSL 


THE  NUMERICAL  COEFFICIENTS  ON  ThE  NEXT  S  LINES  REPRESENT  ThE 

NUMBER  OF  ITEMS  STORED  IN  THE  A,  B,  CNP,  SHAFT,  AND  TRDATA 

ARRAYS,  RESPECTIVELY 

J2  •  J1  +  68INTSMAX 

J3  ■  J2  ♦  43*NSSMAX 

J4  •  J3  ♦  2INPMAX 

JS  *  J4  ♦  23*NSMAX 

JS  -  JS  ♦  23INTRMAX 

LI-5 

LO-6 

The  minimum  REQUIRED  SIZE  OF  'ARRAY'  is  jg+  npmax-i 
OR  74*nTSMAX-46*NSSMAX-23INSMAX»23*NTRMAX 
MINARR-74*NTSMAXf4e*NSSMAX*23*NSMAX+23*NTRMAX 
IF(  MM .  IT .  MINARR  ;  GO  TO  500 

10  IERR0R  *0 

READ* LI. 1, END-600)  TITLE, LIST, PM, OM, STABEG 
WRITE  CIO, 2 )  TITLE 
WRITECLO, 3 )  PM, OM 
WRITE  CIO. 4) 

CALL  INPUT  ( ARRAY ( J 1 ) , ARRAY ( J2 ) , ARRAY ( J3 ) .ARRAY  t  J4 ) .ARRAY  C  J5 ) , 
1NTSMAX, NSSMAX, NPHAX, NSMAX, NTRMAX > 

IF c IST0P .EG . 1  )  GC  TO  10 

140  CALL  SFTSET  CARRAY(J1)#ARRAYCJ2),ARRAY(J3),ARRAYCJ4),ARRAYCJ5), 
1 NTSMAX , NSSMAX , NPMAX , NSM AX, NTfiflAX ) 

IFCIST0P.EQ.1 )  GO  TO  10 

CALL  LENGTH  (ARRAYCJ1  ),ARRAYCJ2),ARRAY(J3),ARRAY(J4 ),ARRAyCJ5), 
1  ARRAYCJS), NTSMAX, NSSMAX, NPMAX, NSMAX, NTRMAX) 

PRINT  OUT  INPUT  DATA  FOR  TUNNELS 
INITIALIZE 


000060 

000070 

000075 

000080 

000090 

000100 

000110 

000120 

000130 

000140 

000150 

000160 

000170 

000180 

aeei90 

000200 

000210 

060220 

000230 

000240 

000250 

000260 

000270 

000280 

000290 

000300 

00e3ie 

000320 

000330 

000340 

000350 

000360 

000370 

000380 

000390 

000400 

000410 

000420 

000430 

000440 

000450 

000460 

000465 

000470 

000480 

000485 

000490 

000500 

000510 

000520 

000530 

000540 


eeee 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


(Continued) 
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COSTUN  Listing  (Continued) 


C 

C 


C 

C 


C 


c 

c 


c 


c 


IPS'* 

NLINES*40 

do  s  ret. nts 
!•« 

I TYPE M 

5  CALI  INOUT  (I.ARRAVtJl 1,  ARRAY!  J2  ),ARRAY(J3  ),  ARRAV<.J4  ), ARRAY!  J5  ) , 
INLINES, I PR, NTSN AX, NSSMAX, NPMAX, NSMAX, NTRMAX  ) 

print  Out  Input  data  for  shafts 

INITIALIZE 

IPS*® 

NLINES'45 
DO  6  (1*1,  NSS 
I*(1 

ITVPE*2 

6  CALL  INOuT  (I,ARRAVtjn.ARRAY(J2),ARRAV(J3),ARRAV!j4),ARRAvcjS), 
INLINES ,  IPS  ,NTSNAX ,  NSSMAX ,  NPMAX ,  NSMAX ,  NTRMAX 


CALCULATE  TUNNEL  DIMENSIONS 

DO  7  M*  1 , NTS 

l*n 

?  CALL  SIZESTtI,  ARRAY! J1  ), ARRAY ( J2  ), ARRAY! J3  ),  ARRAY!  J4 ), ARRAY! J5 ; , 
INTSMAX ,  NSSMAX ,  NPMAX .  NSMAX ,  NTRPIAX  ) 

CALCULATE  SHAFT  DIMENSIONS 
DO  8  n.i.NSS 

I -Cl 

8  CALL  SIZESSC,  ARRAY !  J1 ), ARRAY t  J2  ),  ARRAY ( J3  ),  ARRAY!  J4  ), ARRAV!  J5  ) , 
1NTSNAX , NSSMAX , NPNAX . NSMAX .NTRMAX ; 


DETERMINE  STABILITY  NUMBER  AND  EXCAUATION  METHOD  for  sc  Tunnels 
DO  3®  MM, NTS 

:*M 

ITVPE-i 

CALL  STABILi  I,  ARRAY  l  j  1  j ,  ARRAV  (  ja  ) ,  ARRAY  !  .’3  ARRAY  (  J4  ),  ARRAY !  „-5  J , 
INTSMAX, NSSMAX, NPMAX, NSMAX, NTRMAX  i 
20  CONTINUE 

DETERMINE  STABILITY  NUMBER  AND  EXCAUATION  METHOD  for  SG  Shafts 
DO  25  MM, NSS 
I TYPE *2 
I  *M 

CALL  STABIL  C I ,  ARRAY  <  J 1  ),  ARRAY  !  J2  ARRAY  :  J3  :  ARRAY (  J4  ;  ARRA  Y(  JR  ; 
1NTSMAX , NSSMAX, NPMAX, NSMAX .NTRMAX  > 

25  CONTINUE 


CALL  REACHD  (  ARRAY  i  .'1  . ,  ARRAY  i  J2  ),  ARRAY  ;  J3  ) ,  ARRAY  ;  J4  ) ,  APR  ay  (  J5  : 
1NTSMAX  NSSMAX, NPNAX, NSMAX, N’RMAX  ) 

CALL  ADRATE  array;  JJ  ),  ARRAY;  J2  ARRAY  ;  .'3  )  ARRAY  !  J4  ),  ARRAY r  JS  '■ , 
IN’SMAX, NSSMAX, NFMAX, NSMAX, NTRMAX I 

CALL  CONSTM  ARRAY  ;J1  )  array  !  J2  ;,  ARRAY  :  J  3  ,,  ARRAY  (  J4  ),  ARRAY  (  ;5  • 
INTSMAX, NSSMAX, NPMAX, NSMAX, NTRMAX) 

,£2i:L0jrPHI  :  ARRAY  cut  ;  ,  ARRAY!  J£  ; ,  ARRAY  ;  J3  ;  ,  ARRAY !  J4  ),  ARRAY !  J$  ) , 

INTSMAX, NSSMAX, NPMAX, NSMAX, NTRMAX ) 

CALL  PLMPR’  (ARRAY! J1  ), ARRAY! Jg ;, ARRAV ( J3  ), ARRAY ( J4 ), ARRAY ( J5  ) , 
INTSMAX, NSSMAX, NPMAX, NSMAX, NTRMAX: 

,  “Uf1E  (ARRAY!  J1  ),  ARRAY!  J2  ;  ,  ARRAY  C  J  3  ) ,  ARRAV  (  J4  >,  ARRAY  (  „’5  ) , 

INTSMAX , NSSMAX , NPMAX , NSMAX , NTRt AX : 

.  £5t^£XC^2i  (  (  J1  ) ,  ARRAY  ( J2  ) ,  ARRAV  (  J  3  ) ,  ARRAY  (  J4  ) ,  ARRAY  (  J5  > . 

INTSMAX, NSSMAX, NPMAX, NSMAX, NTRMAX ) 

CALL  MUCKLD  ( ARRAY : J n , ARRAY ( J8 J , ARRAY ( J3  ) , ARRAY ( J4  > , ARRAY ( J5 ) , 


0005S6  ooee 
000560  0000 


000580  0000 
O00SS0  0000 
000600  0000 
000610  0000 
000620  0000 
000630  0000 
000640  0000 


000660  0000 
000670  0000 
000680  0000 
000690  0000 
000700  0000 


000720  0000 
000725 
000730  0000 


000750  e000 
000755 
000760  0000 

000770  0000 


000750  0000 
000800  0000 
000805 
000810  0000 
000820  0000 

000840  eeee 

000850  0000 
000855 
000860  eeee 
000870  eeee 
000880  eeee 
000885 
000890  eeee 

800895 
0e09ee  eeee 
000905 
0009 :e  eeee 
000915 
00092e  0000 
000925 
000930  0000 
000935 

000940  000e 
000945 
000950  0600 


(Continued) 


A22 


ooooooooooooooooooooo  o  o  ooo 


COSTIIN  Listing  (Continued) 


lNTSflAX.N$SNAX,NPNAX,NSMAX,NTflMAX )  030955 

CALL  AIRLOK  CARRAYCJ1  ), ARRAY! J2>, ARRAY! J3  ), ARRAY! J4  !,ARRAvi J5  !,  000560  0000 

1  ARRAY! J6 ), NTSMAX, N$$HAX,NPMAX, NSMAX, NTRMAX  )  000570  0000 

CALL  CALCS  <ARftAY(Jl),ARRAV<j2>,ARRAY(J3>,ARRAY(J4),«fiRAY!JS:,  030980  0000 

1 NTSMAX, NSSMAX.NPM AX, NSMAX, NTRMAX  )  000985 

IFCERROR.EQ.l )  CO  TO  10  000990  0000 

CALL  COSTTU  (ARRAY(J1),ARRAY£J3),ARRAY(J4),ARRAYCJS), ARRAY! J6 ! .  001000  0000 

1 NTSMAX . NPMAX, NSMAX, NTRMAX, NSSM AX  )  001005 

CALL  COSTSF  <ARRAY!J2)»ARRAV(J3>.ARRAY(J4),ARRAY(JS),  001010  0000 

1NSSNAX ,NPMAX . NSMAX , NTRMAX , NTSMAX  )  001015 

CALL  NfcXSET(LO,LI )  001020  0000 

CO  TO  10  001030  0000 

- 001040 

DIMENSION  OF  'ARRAY '  ARRAY  LESS  THAN  MINIMUM  REQUIRED  DIMENSION.  001050  0000 

EXECUTION  TERMINATED  001060  0000 

500  URITE(L0,9)  MM.NINARR  001070  0000 

. - . - . - .  001080  0000 

1  FORMAT! 10! 1SA4/  ) , 401 1 , /, 3F10 . 0 )  001090  0e00 

2  FORMAT! 1M1, 101/ ),1SX,90!1H»),/, l5x,lH*,88x, ih*,/,  001100  0000 

U0(1SX,1H*,12X,16A4,12X.1H*,/),  001110  0000 

2  1SX,1H*,88X,1H*,/,15X,90!  1h*  ,  )  001120  0000 

3  FORMAT! /////, 44X, 32! lHt ),/,  001130  0000 

1  44X,1H*,22H  PROFIT  MARGIN  . F7.2,2m  »,/,  001140  0000 

2  44X,1H*,22h  OuERHEAD  MARGIN  . F7.2,2h  *,/,  301150  0000 

3  44X.32HH*))  001160  0000 

4  FORMAT! 1H1)  001170  0000 

9  FORMAT! 1H1. /////, IX, 131 C 1H* J//27X, 78H***«  EXECUTION  OF  'COSTUN'  S  001180  0000 

ITOPPED  BECAUSE  OF  ERROR  IN  MAINLINE  PROGRAM  i*t**//g2x,  001190  0000 

213HDIMEN5I0N  OF  ,I7,68H  GlUEN  FOR  'ARRAY'  IN  MAINLINE  PROGRAM  IS  L  001200  0000 

3ESS  THAN  MINIMUM  REQUIRED/ /2gX,  13HDIMENSI0N  OF  ,17,  001210  0000 

429H.  ALL  DATA  DECKS  IGNORED. //IX, 131 1 1H* ) )  001220  0000 

- 001230  0000 

600  CONTINUE  001240  0000 

STOP  001245 

END  001250  0000 

SUBROUTINE  INPUT ( A, B, CNP, SHAFT, TRDATA, NTSMAX , NSSM AX , NPMAX, NSMAX,  001260  0000 

1NTRMAX)  001265 

. - .  001270  0000 

-  001280  0000 

THE  FOLLOWING  DEFINES  THE  CONTENTS  OF  THE  VARIOUS  ARRAYS  001290  0000 

-  001300  0000 

CNPCI.J)  ....  NODAL  POINT  ARRAY  (I  •  NODAL  POINT  NUMBER '  001310  000e 

J  •  1  STATIONING  OF  THE  NODAL  POlN*  001320  000e 

(CALCULATED  IN  SUB  Length'  001330  0000 

.  *2  ELEVATION  OF  thE  nodal  PC  IN-  001340  0000 

«;i.J)  .  tunnel  segment  array  <:  ■  location  of  segmen-  in  001350  0000 

-A-  ARRAY,  J  •  AS  BELOL)  001360  0000 

ITEM  J  •  1  SEGMENT  NUMBER  •  NTSEG  001370  0000 

2  NODAL  POINT  TO  LEF-  OF  SEGMEN-  .  NCL  001380  0000 

3  NODAL  POIN-  T0  RIGHT  OF  SEGMEN*  •  NPR  001390  0000 

4  REACH  NUMBER  •  NREACh  001400  0000 

5  ROCK  STRENGTH  -  RS  OR  JRS  001410  0000 

6  R.Q.D.  ■  ROD  OR  JRQD  001 420  0000 

7  EXCAVATION  METHOD  •  MEX  001430  0000 

d-ORILL  and  BLAS*.  2*MCLE(RCCK  ’ ,  001440  0000 

3-MOLE <  SOIL  4. hand, 5-RIPPER  00M50  0000 

6-OPEN  CUT! VERTICAL  ),  7. OPEN  CjT  001460  0000 

(SLOPING))  001470  0000 
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COSTUN  Li  sting  (Continued) 


a 

9 

le 


n 

IS 

13 

14 

15 

16 


l? 

18 

IS 

se 

21 

22 

23 

24 

25 

26 


29 

30 

31 

32 


33 

34 

35 

36 

37 

38 


HEADING  ADuanCE  Rate  •  AS 
GROUNDUATER  INFLOW  AT  UORKING  FACE 
■  INFLOU  OR  GI 
LINING  TVPE  ■  LINING 
(0  OR  BLANK- UNLINED, 1-CIP  CONCRETE, 

3 • SHO TCRETE, 3« PRECAST  CONCRETE  BOX) 
LINING  THICKN£SS  •  TL  OR  LT  OR  TSEG 
ROCK  TEfIPERATURE  •  RTEMP  OR  JRTEMP 
SUPPRESSION  OF  FORMWORK  COST5-NOFORM 
£0  OR  BLANK-POSSIBLE  COSTS, 1- SUPPRESS 
GROUNDWATER  ELEUATION  -  ELWATR 
WATERTIGHT  LINING  REQUIREMENT  •  LINWT 
(0  OR  BLANK-NO,  1-UATERTIGHT) 
TUNNEL  SEGMENT  TYPE  •  NTSTVP 
t 1 -ROCK,  2-SOFT  GROUND, 

3-  CUT  AND  COWER) 

SURFACE  NODAL  POINT  TC  LEFT  OF  TUNNEL 
SEGMENT  ■  NPLS 

SURFACE  NODAL  POINT  TO  RIGHT  OF 
TUNNEL  SEGMENT  •  NPRS 
EFFECTIUE  GRAIN  SIZE  •  D10 
ANGLE  OF  INTERNAL  FRICTION  •  PHI 
SOIL  COHESION  -  COHESN 
SOIL  UNIT  WEIGHT  •  GAMMA 
DEUATERING  ALLOUED  •  IUATER 
(0  OR  BLANK-NO.  1 -ALLOWED ) 
ELEUATION  OF  IMPERUIOUS  LAYER  •  ELIMP 
SOIL  PERMEABILITY  -  PERM 
SUPPORT  TYPE  •  ISUPPT 

Cl -CAST  IRON  SEGMENTS,  2-CONCRETE 
SEGMENTS,  3-STEEL  SEGMENTS, 

4- STEEL  RIBS  U /"LINING,  5-SOLDIER 
PILE-LAGGING.  6-SLURRY  WALL) 

ELEUATION  OF  SOUND  ROCK  -  ELROCK 
OPEN  CUT  BRACING  REQUIREMENT  -  I8RACE 
C0  OR  BLANK-NONE.  1  -STRUTS 

2- ANCHORS,  3-STRUTS-ANCHORS ) 

OPEN  CUT  DECKING  REQUIREMENT  -  IDECK 

(0  OR  BLANK-NO,  1-DECKING  USED  5 
STABILITY  NUMBER  •  STaBNO 
STABILIZATION  METHOD  •  MSTAg 

(0  09  BLANK-NONE,  1 -COMPRESSED 
AIR,  2-DEWATERING.  3-GROUND  JNJ.  ) 
USE  OF  STABILIZATION  MEthOD  •  MuST 

Cl -COSTUN  SELECT,  2-CCSTuN  SELECT 
ONLY  IF  COULD  NOT  BE  EXCAUATED, 

3- USER  SELECT  ONLY  IF  COULD  NOT 
BE  EXCAUATED,  4-uSER  SELECTS, Must 
USE, EUEN  IF  MSTAB-0) 

AIR  PRESSURE  ■  AIRPR 
ACCEPTABLE  INPUT  STAB  I L. method-  mstac 
C 1 -ACCEPTABLE, 2-UNACCEPTABLE  1 
MAX  AIR  QUANTITY  FOR  COMPRESSED  AIR 
SETUP  ■  CAUT 

NODAL  POINT  OF  AIR  LOCK  •  NPLOCK 
MAX  HEAT  EXCHANGE  FOR  COOLING  PLANT 
SETUP  •  GT 

FOR  ROCK  OR  SOFT  GROUND  . 


C01480  0eo0 
001490  0000 
001500  0000 

e0isie  0000 
0ei52e  0000 
001S30  0000 

001540  0000 
001550  0000 
001560  0000 
001570  0000 
001580  0000 
001590  0000 
001600  0006 
001620  0000 
001620  0000 
e01630  0000 
001640  0000 
001650  0000 
001660  0000 
001670  0000 
001680  0000 
001690  0000 
001  ■’00  0000 
001710  0000 
001720  0000 
00P30  000e 

001740  0000 
001750  0000 
001760  0000 
001770  0000 
001780  0000 

001750  0000 
001800  0000 
001810  0000 
001820  0000 
001830  0000 
001840  0000 
001850  0000 
001360  0000 
001870  0000 
001880  0000 
001890  0000 
001900  0000 
001910  0000 
001920  0000 
001930  0000 
001940  0000 
001950  0000 
001960  0000 
001970  0000 
001980  0000 
001990  0000 
002000  0000 
002010  0000 
002020  0000 
002030  0000 
002040  0000 
002050  0000 
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COSTUN  Listing  (Continued) 


TRDATAU.J) 


quantity  of  heat  exchange  in  seg  •  o  002060  0000 

FOR  CUT  AND  COUER  .  002070  8000 

LENGTH  OF  SOLD.  PILE  tJ/  DECK.  •  SPDLT  00E080  0000 

—  OR  —  002090  0000 

DEPTH  OF  SLURRY  WALL  •  DSLUPy  002100  0C00 

39  CHAR.  EXC.  DIMENSION  •  BE  002110  0000 

40  CHAR.  EXC.  DIMENSION  AT  RQD-40  •  BE40  002120  0000 

41  CHAR.  EXC.  DIMENSION  AT  ROD-60  •  BE60  002130  0000 

42  CHAR.  EXC.  DIM.  U/OB  •  BOB  002140  0000 

43  FOR  ROCK -  0021S0  0000 

CHAR.  EXC.  Din.  U/OB  ,  RCD-40  •  BOB40  002160  0000 

FOR  CUT  AND  COUER  -  002170  0000 

TOTAL  BOX  HEIGHT  •  TOTBCX  002180  0000 

44  CHAR.  EXC.  Din.  U/OB  ,  RQD-60  •  BOB60  002190  0000 

45  SEGMENT  LENGTH  •  TSEGL  002200  0000 

46  MUCK  HAUL  DISTANCE  •  DM  002210  0000 

47  MUCK  HAUL  SLOPE  •  HSLOPE  002220  0000 

48  MUCK  LOADING  RATE  IN  SEGMENT  ■  RML  002230  0000 

49  ULTIMATE  ADUANCE  RATE  •  ARTULT  002240  0000 

50  CONSTR.  TIME  EXC.  ♦  LINING  •  CTTS  002250  0000 

51  EXCAUATED  UOLUME  •  U  002260  0000 

52  TOTAL  DEPTH  OF  TRENCH  •  DTRNCh  002270  0000 

53  CUT  AND  COUER  SIDE  CUT  SLOPE  •  SIDESL  002280  0000 

54  UOLUME  DISPLACED  BY  CONC.  BOX  ■  UBOX  002290  0000 

55  UOLUME  OF  CONCRETE  IN  BOX  •  UL  002300  0000 

56  AREA  OF  BOX  FORMS  •  FORMAR  002310  0000 

57  PUMPING  HEIGHT  -  PH  002320  0000 

58  LENGTH  OF  PIPE  FOR  PUMPING  INFLOWS  002330  0000 

UPHILL  ■  PIPL  002340  0000 

59  AUG  PUMPING  FLOU  IN  TUNNELS  •  FLOU  002350  0000 

60  RESIDUAL  GROUNDWATER  INFLOU  •  GIR  002360  0000 

61  PUMPING  FLOU,  ONE  DEEP  UELL  •  FLOUL  002370  0000 

62  CHAR  DEPTH  OF  SUPPORTS  •  UEB/  TPLATE  002380  0000 

63  FOR  ROCK  OR  SOFT  GROUND  .  002390  0000 

SOIL  LOAD  ■  PSOIL  002400  0000 

FOR  CUT  AND  COUER  -  002410  0000 

UT/FT  OF  UALER  ■  UTUALE  002420  0000 

64  FOR  ROCK  OR  SOFT  GROUND  .  002430  0000 

WATER  LOAD  •  PUATER  002440  0000 

FOR  CUT  AND  COUER .  002450  0000 

UT/FT  OF  STRUT  •  UTSTRT  002460  0000 

65  FOR  ROCK  OR  SOFT  GROUND  .  002470  0000 

PSOIL+PUATER  ■  PTOTAL  002480  0000 

FOR  CUT  AND  COUER  -  002490  0000 

UT/FT  OF  ANCHORS  ■  UTANCH  002500  0000 

66  UT/FT  OF  UNDECKED  SOLD.  PILE  ■  UTSP  002510  0000 

67  UT/FT  OF  DECKED  SOLD.  PILE  •  jTSPD  002520  0000 

68  NUMBER  OF  UELLS  ■  UELLS  002530  0000 

.  TUNNEL  REACH  DATA  (I -REACH  NUMBER)  002540  0000 

ITEM  J  •  1  EXIT  SHAFT  FOR  REACH  •  NSHAFf  002550  0000 

2  TUNNEL  SIZE  •  BF  002560  0000 

3  TUNNEL  SHAPE  •  I  SHAPE  002570  0000 

(0  OR  BLANK-CUT  AND  COuER,  002580  0000 

1 -CIRCLE,  2-HORSESHOE,  3-BASKETHANDLE  002590  0000 

4  MUCK  TRANSPORT  METHOD  •  MTM  002600  0000 

ce  OR  BLANK-CUT  and  COUER,  002610  0000 

1-TRUCK, 2-C0NUEY0R, 3-RAIL,  002620  0000 

4-TRUCK+CONUEYOR  IN  COMP.  AIR)  002630  0000 


(Continued) 


A25 


ooooooooooooooooooooooooooooooouoooooooooooooooooooooooooo 


I’.OSTllN  listing  (Continued) 


5  SEGMENT  SEOuENCE  NUMBER  AT  UhICh  REAC  e02640  0008 

EXCAUATION  BEGINS  •  NRSEG1  0026S0  0030 

6  NUMBER  OF  SEGMENTS  IN  REACH  ■  NSEJS  602660  0030 

-  INDICATES  REACH  GOES  FR0M  RT  TO  L  002670  0000 

♦  INDICATES  REACH  GOES  FROM  LF  ’0  fi  002680  0000 

7  PEAK  REACH  MUCK  REMOUAL  RATE  CCY/HR)  002650  0000 

8  UORK  HOURS  PER  DAY  •  HOURS  002710  0000 

•  RMLMAX  OR  IPRML  002700  0000 

9  UORK  DAYS  PER  UEEK  •  DAYS  002720  0000 

10  FOR  ROCK  OR  SOFT  GROUND  .  002730  0000 

NUMBER  OF  SHIELD  SETUPS  •  SETuSh  002740  0000 

FOR  CUT  AND  COUER -  002750  0000 

NUMBER  OF  UNITS  IN  BOX  UIDTH  •  NBOX  002760  0000 

11  FOR  ROCK  OR  SOFT  GROUND  -  302770  0000 

NUMBER  OF  MOLE  SETUPS  •  SETUPM  002780  000e 

FOR  CUT  AND  COUER  .  002790  0000 

TOTAL  FINISHED  BOX  UIDTH  •  BFBUDT  002800  0000 

12  FOR  ROCK  OR  SOFT  GROUND  .  002810  0000 

NUMBER  OF  RIPPER  SETUPS  •  SETuFR  002820  0000 

FOR  CUT  AND  COUER  .  002830  0000 

TOTAL  FINISHED  BOX  HEIGHT  .  BFBHT  002840  0000 

13  DOUBLE  BOX  DESIGN  •  IB0X2  002850  0000 

(0  OR  BLANK-NO.  1 -DOUBLE  BOX)  002860  0300 

14  FOR  ROCK  OR  SOFT  GROUND  .  002870  0000 

TOTAL  LENGTH  IN  COMPRESSED  AIR  •  DTCA  002880  80e0 

FOR  CUT  AND  COUER  .  002890  0000 

DEWATERING  TIME  ■  TIMEDU  002900  0000 

15  TOTAL  LENGTH  REQUIRING  COOLING  •  DTC  002910  0e00 

16  MAX  LENGTH  OF  CUT  IN  UHICH  BACKFILL  002920  0000 

CANNOT  BE  PLACED  *  OPEN  002930  0000 

1?  TOTAL  COST  OF  LABOR  IN  REACH  -  RCL  002940  0000 

18  TOTAL  COST  OF  EQUIP. IN  REACH  •  PCE  002950  0000 

19  TOTAL  COST  OF  MATERIAL  IN  REACH  •  RCM  002960  0000 

20  TOTAL  COST  OF  REACH  •  RCT  00297e  0000 

21  MAX  CC  EXC  UOL  TO  DISPOSAL  •  UDS  002980  0000 

22  UOLUME  OF  CC  BACKFILL  FROM  CURRENT  002990  0000 

EXCAUATION  •  UBACEX  003000  0000 

23  UOLUME  OF  CC  BACKFILL  FROM  PREUIOUS  003010  0000 

DISPOSAL  •  UBACDS  003020  0000 

003030  0000 

B(I,J)  .  SHAFT  SEGMENT  ARRAY  Cl  •  LOCATION  CF  SEGMENT  IN  003040  0000 

B'  ARRAY,  J  •  AS  BELOU)  0030S0  0000 

ITEM  J-  1  SHAFT  NUMBER  •  NSHAFT  003060  0000 

2  SHAFT  SEGMENT  NUMBER  -  NSSEG  003070  0000 

3  UPPER  NODAL  POINT  OF  SEGMENT  .  NPT  003080  0000 

4  IOUER  NODAL  POINT  OF  SEGMENT  .  NPB  003090  0000 

5  ROCK  STRENGTH  ■  RS  OR  JRS  003100  0000 

6  R.Q.D.  •  ROD  OR  JRQD  003110  0000 

7  EXCAUATION  METHOD  ■  MEX  003120  0000 

C0  OR  BLANK-NONE,  1-DRILL  AND  003130  0000 

BLAST,  2-MOLE  CROCK  ) ,  3-MOlEcSOID  003140  0000 

4-HAND)  003150  0000 

8  HEADING  ADUANCE  RATE  •  AR  003160  0000 

9  GROUNDUATER  INFLOU  •  GI  003170  0000 

C0-DRY,  1-UET)  003180  0000 

10  LINING  TYPE  ■  LINING  003190  6000 

C0-UNLINED,  1-CIP  CONCRETE,  003200  0000 

2-SHOTCRETE,  3-PRECAST  CONCRETE  003210  000# 
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CUT  AND  COuER  SOX)  30322® 

lining  thickness  •  tl  or  it  or  tseg  003230 

SUPPRESSION  OP  FORMuORK  COSTS-nOFCRM  303240 

10  OR  BLANK ‘POSSIBLE  COSTS. 1 ‘SUPPRESS  0O32S0 
GROUNDWATER  ELEuaTION  •  ELLATR  003260 

WATERTIGHT  LINING  REQUIREMENT  .  LINUT  003270 

(0  OR  BLANK‘NO,  1‘UATERTIGH-i  003280 

SHAFT  SEGMENT  TVPE  •  NSSTvP  003290 

( 1*R0CK(  2-SOFT  GROUND.  003300 

3‘CUT  AND  COUER)  003310 

EFFECTIUE  GRAIN  SIZE  ■  D10  003320 

SOIL  COHESION  •  COHESN  003330 

SOIL  UNIT  UEIGHT  ■  GAMMA  003340 

ANGLE  OF  INTERNAL  FRICTION  •  PHI  003350 

ELEUATION  OF  IMPERuIOUS  LAyER  •  ELIMP  003360 
DEWATERING  ALLOWED  •  lUATER  083370 

(0  OR  BLANK‘NC,  1 ‘ALLOWED  >  003388 

SUPPORT  TYPE  ■  ISL’PPT  00339e 

Cl ‘CAST  ICON  003400 

SEGMENTS,  2‘CONCRETE  SEGMENTS.  003410 

3 ‘STEEL  SEGMENTS,  4-STEEL  RIBS  003420 

LINING,  5‘0PEN  CU"  :  003430 

SOIL  PERMEABILITY  •  PERM  003440 

STABILITY  NUMBER  •  STABNO  0034S0 

STABILIZATION  METHOD  ■  MS^AB  003460 

(0  OR  BLANK-NONE,  1-COMPPESSED  0034"’0 

AIR,  2-DEWATERING,  3-GROuND  Inj.j  003480 

USE  OF  STABILIZATION  METHOD  •  MU5T  003490 

(1‘COSTUN  SELECT,  2-CCSTuN  SELECT  003500 

ONLV  IF  COLLD  NCT  BE  EXCAVATED,  003510 

3-USER  SELECT  ONLY  IF  COULD  NOT  003520 

BE  EXCAUATED.  4-USER  SELECtS.MuST  003530 

USE.EUEN  IF  nSTAB‘0'  003540 

AIR  PRESSURE  •  A I RPR  @03550 

ACCEPTABLE  INPUT  STABIL . METHOD-  MSTAC  003560 

(^ACCEPTABLE, E-UNACCEP^ABLE  :  003570 

CHAR.  £XC.  DIMENSION  -  BE  003580 

t-uF  ROCK -  @03590 

CHAR.  EXC.  DIMENSION  AT  ROD-40  •  BE40  003600 

FOR  SOFT  GROUND  -  003610 

SOI  .  LOAD  •  PSOIL  003620 

FOR  ROCK .  003630 

CHAR.  EXC.  DIMENSION  AT  ROD-60  ■  BE60  003640 

FOR  SOFT  GROUND -  003650 

PSOIL-PUATER  •  PTOTAL  003660 

CHAR.  EXC.  DIM.  U'OB  •  BOB  003670 

CHAR.  EXC.  DIM.  U'OB  ,  ROD-40  •  BOB40  003680 
CHAR.  EXC.  DIM.  U'OB  ,  ROD-68  •  BOB60  003690 
SEGMENT  LEnTm  .  SSEGL  003700 

HOISTING  HEIGHT  .  hh  OR  SEGDE”  e037ie 

MUCK  LOADING  RATE  IN  SEGMENT  .  RML  003720 

EXCAUATED  UOLUME  •  u  003730 

ULTIMATE  ADUANCE  RA’E  •  ARSULT  003740 

CONSTR.  TIME  EXC.  *  LINING  -  CTSS  003750 

CHAR.  DEPTH  OF  SUPPORTS  •  wEB/  TPLAte  003760 

PUMPING  FLOW,  ONE  DEEP  JELL  •  FLOWL  003770 

WATER  LOAD  •  P WATER  003780 

0037B0 


(Continued) 
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COSTl.'N  listing  (Continued) 


SHAFT  C I ,  J  > 


SHAFT  INFORMATION  (I-SHAFT  NUMBER  ) 

ITEM  J  •  1  LOCATION  IN  The  'B'  ARRAY  IN  WHICH  "H 
FIRST  SHAFT  SEGMENT  CF  SHAF*  I  IS 
STORED  •  NSSEG1 

2  NODAL  POINT  AT  TOP  OF  $HACT  •  NPTS 

3  NODAL  POINT  AT  BOTTOM  OF  SHAFT  •  NPBS 

4  NUMBER  of  segments  Ih  this  Shaft 

•  NSEGS 

5  DISTANCE  TO  THE  DISPOSAL  SITE  •  DDS 

6  COST  OF  DISPOSAL  SITE  •  CDS  OR  ICDS 

7  SHAFT  SIZE  •  BF 

a  riFPTw  OF  AHAFT 

9  TOTAL  UOLUME  OF  ExCAUATED  MATERIAL 

9  TOTAL  UOLUME  OF  EXCAUATED  MATERIAL 

TO  BE  TAKEN  OUT 


10 

11 


12 

13 

14 

15 
IS 


17 

IS 

19 

29 

21 

22 

23 


THRU  THI 5  SHAFT 
PEAK  MUCK  REMOUAL  RATE  SHAFT  (Cy/HR) 
■  RMLMAX  OR  IPRML 
AUERAGE  SUMMER  ABOUE  GROUND  AIR 
TEMPERATURE  AT  TOP  OF  ShAFT  ■  AIRTEM 
OR  IARTEM 

COST  FACTOR  FOR  LABOR  •  CFL 

COST  FACTOR  FOR  EQUIPMENT  .  CFE 
COST  FACTOR  FOR  MATERIALS  •  CFM 
REGIONAL  COST  FACTOR  •  RCF 

SHAFT  SHAPE  •  ISHAPS 

<0  OR  BLANK-DUMMY,  1-CIRCULAR, 

2- SQUARE ) 

UORK  HOURS  PER  Day  ■  HOURS 
UORK  DAYS  PER  UEEK  ■  DAYS 
TOTAL  COST  OF  LABOR  IN  SHAFT 


SOL 

TOTAL  COST  OF  EQUIP  IN  SHAFT  -  SCE 
TOTAL  COST  OF  MATERIAL  IN  SHAFT  •  SCM 
TOTAL  COST  OF  SHAFT  -  $CT 
PORTALS  •  NPORT 

( 0-TRUE  SHAFT, 1. PORTAL) 

LIST(I)  .  ARRAY  OF  PRINTOUT  OPTIONS 

ITEM  I  ■  1  NODAL  POINT  ELECTIONS 

2  TUNNEL  INPUT  DATA 

3  SHAFT  INPUT  DATA 

4  CALCULATED  TUNNEL  DATA 

5  CALCULATED  SHAFT  DATA 

6  TUNNEL  SEGMENT  AND  REACH  COSTS 

7  SHAFT  SEGMENT  AND  SHAFT  C0STS 

8  TUNNEL  REACH  COST  SUMMARY 

9  SHAFT  COST  SUMMARY 
10-40  UNUSED  AT  PRESENT 

IF  the  UALUE  OF  LIST 1 1  )  IS  ZERO  OR  BLANK,  LISTING  OF 
ITEM  WILL  OCCUR.  IF  UALUE  IS  ONE, LISTING  WILL  BE 
SUPPRESSED.  ITEM  NUMBER  IS  SAME  AS  DATA  CARD  COLUMN 
NUMBER. 


XXtttUXXXt  INPUT  TUNNEL  SYSTEM  LOCATIONS  AND  CHARACTERISTICS  * 


003800 

ee38ie 

003820 

093830 

00384e 

003850 

003860 

003870 

003880 

003890 

003900 

003910 

003929 

003920 

003930 

003940 

003950 

003960 

003970 

003989 

003990 

004000 

004010 

004020 

004030 

004040 

004050 

004060 

004070 

004080 

004090 

004100 

004110 

004120 

004130 

004140 

004150 

004160 

004170 

004180 

004190 

004200 

004210 

004220 

004230 

004240 

004250 

004260 

004270 

004280 

004290 

004300 

004310 

004320 

004330 

004340 

0e4350 

004360 


0000 

eooo 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0900 

0000 

0000 

0000 

0900 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0ee0 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


(Continued) 


A28 


ooo  oo  ooo  oo  o  o  oo  o  oooooo 


COSI'l'N  List  ill)’  (Cunt  i  miccl ) 


COMMON  /BASIC/  NSS,NTS 

COMMON  /A/  LO, LI , PM.OM, LIST  C  40  )  .TITLE i 160 ) , STABEG, I  Tv PE 
COMMON  /F/  IERROR, ISTOP 

DIMENSION  A<  NTSMAX, 68  ) .  B  < NSSMAX , 43 ) . CNF ( NPMAX , 2  ) , SHAFT ( hSMA*. 23  > . 

1  TRDATA ( NTRM AX ,23) 


ISTOP*0 

IPR*0 

READ  NODAL  POINTS  AND  STORE  IN  CORE  **»************t* 

INITIALIZE  NODAL  POINT  ARRAY 
DO  IS  I* l, NPMAX 
IS  CNPCI,2>~ 10.E30 

N-NODAL  POINT  NUMBER,  Y.NODAL  POINT  ELEUATION 

20  READ c II, 1000 )  N, v 

CHECK  FOR  MISSING  SEPARATOR  CARD 
IF  tY. LT. 50000.  )  GO  TO  21 
ISTOP  •  1 
URITE  (LO.1S00) 

GO  TO  425 

21  CONTINUE 

CHECK  FOR  END  OF  NODAL  POINT  COORDINATES 
IF(N. EG . 9999  )  GO  TO  30 
IF(N.GT.nPMAX.OR.N.LE.0  )  GO  TO  2S 

CHECK  FOR  PREUIOUS  DEFINITION  OF  THIS  NODAL  POINT 
IFtCNPt N, 2 ) . GT, - 10, E2S )  IST0P*1 
IF(CNP(N,2  )  .GT.-10.E29 )  URITE  (LO.1013)  N 
CNPCN.2 )*Y 
GO  TO  20 

25  URITEC  LO, 1001  )  N.NPMAX 
ISTOP-1 
GO  TO  20 

END  OF  NODAL  POINT  INPUT 
30  CONTINUE 

mimmmmtttumitimmmaammiiasutmmmm 

READ  TUNNEL  SEGMENT  INFORMATION  AND  STORE  tllttxttttt 

INITIALIZE  TUNNEL  SEGMENT  ARRAY 
DO  40  1*1, NTSMAX 

40  A(I,1 J--10.E30 
INITIALIZE  THE  REACH  ARRAY 
DO  41  I-1,NTRMAX 

41  TRDATA ( 1,1 )«-10.£30 

I “SEGMENT  SEQUENCE  NUMBER 

1*0 

SO  1-1*1 


004370 

0043ge 

004390 

004400 

004410 

004420 

004430 

004440 

004450 

004460 

004470 

004480 

004490 

004500 

004510 

004520 

004530 

004540 

004550 

084560 

004570 

004580 

004590 

004600 

004610 

004620 

004630 

004640 

004650 

004660 

004670 

0e468o 

004690 

004700 

004710 

004720 

004730 

004740 

004750 

004760 

004770 

004780 

004790 

004800 

004810 

004820 

004830 

004840 

004850 

004860 

004870 

004880 

004890 

004900 

004910 

004920 

004930 

004940 


(Cont inued) 
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COSTUN  Listing  ((.'out  inued  ) 


ELAUC'tELNPL+CLNPRl/a.  SfrJSaa  JMI 

BYPASS  CHECK  FOR  NOT  A I.  INPUT 

IF <  ELN^L . QT . - 1 0 .  E39 •  AND  •  ELNPR . GT . - 1 0 .  £29  j  GO  TO  58  90S530  «3«« 

URITE(L0, 1031 )  NTSEG.NREACH  995540  3008 

I0TOP* 1  005550  0000 

it  CONTINUE  005560  0000 

. 005570  0000 

CHECK  FOR  PROPER  EXCEPTION  METHODS  IN  TUNNEL  SEGMENTS  005580  0000 

NEX*A< 1.7 )  005SS0  0000 

IF ( NCX . uE .  1 . AND • HEX . LE . 7 )  GO  TO  65  005600  0600 

ISTOP* 1  005610  0000 

URITE<LO,1030)NTS£C,NREACH  005620  0000 

66  CONTINUE  005630  0000 

- - - - - - - .  005640  0000 

CHECK  FOR  PROPER  EXCEPTION  METHOD  FOR  TUNNEL  TVPE  SPECIFIED  005550  0000 

IF<NTSTvP.£Q. 1 .AND .HEX .GT. 2  )  GO  TO  650  005660  0000 

IF<NTSTYP.£Q.2.AND.M£X.LT.3.0R.NTSTYP.EQ.2.AhD.MEX.GT.5)  GO  TO  650  005670  0000 

IFCNTSTvP. £0.3. PND.MEX.LT. 6)  GO  TO  650  005680  0000 

GO  TO  655  005690  0000 

650  ISTOP* 1  005700  0000 

URITECLO.2005)  NTSEG.NREACH  005710  0030 

655  CONTINUE  005720  0000 

—  . — - - - —  005730  0000 

CHECK  FOR  CONTRADICTION  OF  SPECIFYING  A  THICKNESS  FOR  NO  LINING  003740  0000 

LINING*A( 1, 10  )  005750  0000 

IFCNTSTVP.NE.l. OR. LINING. HE. 0)  GO  TO  67  005760  0000 

TL*A( 1, 11 )  005770  0000 

IFCTL.LE. 0.001  )  GO  TO  67  005780  0000 

URITEILO, 1045)  NTSEG.NREACH  005790  0000 

ISTOP* 1  00S800  0000 

67  CONTINUE  005810  0000 

. - .  005820  0000 

CHECK  FOR  PROPER  LINING  TYPE  CODE  005830  0000 

BYPASS  CHECK  FOR  PROPER  LINING  CODE 

GO  TO  70 

IFCL1NING.GE.0. AND. LINING. LE. 3)  GO  TO  68  005840  0000 

URITE ( LO, 1043 )  NTSEG.NREACH  005850  0000 

ISTOP* 1  005860  0000 

68  CONTINUE  005870  0000 

. - .  005880  0000 

CHECK  FOR  PROPER  LINING  CODE  FOR  TUNNEL  TYPE  SPECIFIED  005890  0000 

IF< NTSTYP . LT . 3 . AND . LINING. NE . 3 . OR . NTSTYP . EQ . 3 . AND . LINING . EG. 1 . OR .  005900  0000 

1NTSTYP.EQ.3.AND.LINING.E0.3)  GO  TO  70  005910  0000 

ISTOP* 1  005920  0000 

URITE<LO,2010  )  NTSEG.NREACH  005930  0000 

—  . — . - .  005940  0000 

CHECK  FOR  ADUANCE  RATE  NOT  SPECIFIED  005950  0000 

70  AR*P( 1,8 )  005960  0000 

IF (AR.EO.0.0  J  GO  TO  71  005970  0000 

. -  005980  0000 

CHECK  FOR  ADUANCE  RATE  LESS  THAN  0  FT  /'DAY  005990  0900 

IF ( AR . QT .0 , 0 )  GO  TO  71  006090  9000 

ISTOP* 1  006910  0090 

URITECLO.106S)  NTSEG.NREACH  006029  0990 

_ _ _____ _ _ _ ______ _ _ _ _ _ ______ _ ______ _ _  606930  0000 

„  CHECK  FOR  ROCK  STRENGTH  GREATER  THAN  589  PS I  006040  0000 

71  RS*A( 1,6 )  006950  0090 


(Cont inued ) 
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i:i)STl!N  List,  in;'  (Hunt  i  mu-ii ) 


XF<RS.LT.6#0..AND.NTSTVP.EQ.l)  WRITE(LO,1060)  NTSEG.NREACH  906060  0000 

_ r ^ _ _ _ _ _ 0000 

CHECK  FOR  PROPER  WATERTIGHT  COSE  006080  0000 

LINUT-A(I.IS)  006090  0000 

IF ( LINWT.EQ. 0 . OR. LINUT. EQ . 1  )  00  TO  Tig  006100  0000 

I STOP* 1  006110  0000 

gRITE(LO,201S>  NTSEG.NREACH  006120  0090 

710  CONTINUE  006130  0000 

____________ _ ________________________________ _ ___________ _ _  _  _  0061 4Q  0000 

ALL  CUT  AND  COUER  80X  SEONENTS  ARE  DESIGNED  AS  WATERTIGHT  -  006150  0000 

INPUT  IGNORED  006160  0000 

IF(NT$TYP.E0.3. AND.LINWT . EQ.0  )  WRITE ( LO, 2017  )  NTSEG.NREACH  006170  0000 

. . . . - .  006180  0000 

A  LINING  OR  SUPPORT  MUST  IE  SPECIFIED  WHEN  WATERTIGHT NESS  REQUIRED  006190  0000 

ISUPPT*A( I , 26  )  006200  0000 

IFCLINUT. EG. 0. OR. LINING. GT.0J  GO  TO  711  006210  0000 

IF tNTSTVP.GT . 1 . AND. ISUPPT ■  LE. 3 )  GO  TO  711  006220  0000 

I STOP *1  006230  0000 

URITE(LO,2020)  NTSEG.NREACH  006240  0000 

—  . — . - .  006250  0000 

CHECK  IF  GROUNDWATER  ELEUATION  NOT  input  AND  WATERTIGHT  REQUIRED  006260  0000 

711  ELUATR-At 1.14)  006270  0000 

IF(LINUT.E6.i.AND.£LWATR.EQ.0.  >  UR1TE(LO,2025 )  NTSEG.NREACH  006280  0000 

—  . . . — .  006290  e000 

CHECK  IF  TUNNEL  TYPE  NOT  ROCK  AND  GROUNDUATER  ELEU.  NOT  SPECIFIED  006300  0000 

IF<NTSTYP.GT.1.AND.ELUATR.EO.0>  URITE ( LO.2025 )  NTSEG.NREACH  006310  0000 

. - . — .  006320  0000 

CHECK  FOR  PROPER  TUNNEL  CODE  IF  ROD  IS  LESS  THAN  25.  006330  0000 

ROD- A (1.6)  0063X0  0000 

IF(NTSTYP. GT . 1 . OR  <  RQD.GE .25 . )GO  TO  ?12  006350  0000 

I STOP *1  006360  0000 

WRITE (LO. 2030)  NTSEG.NREACH  006370  0000 

712  CONTINUE  006380  0000 

—  . - . - .  006390  0000 

IS  TUNNEL  in  SOFT  GROUND  AND  ROD  GREATER  THAN  25.  006400  0000 

IF(NTSTYP.E0.2.AND.R0D.GT.2S. )  URITElLO.2035)  NTSEG.NREACH  006410  0000 

.  006420  0000 

CHECK  FOR  RQD  BETUEEN  0  AND  100.  006430  0000 

IF(RQD.GE.0.0 . AND.ROD.LE. 100. )  GO  TO  713  006440  0000 

WRITE ( LO. 1962  )  NTSEG.NREACH  006450  0000 

ISTOP-1  006460  0000 

.  006470 

CHECK  RENAINING  DATA  IF  TUNNEL  IS  NOT  IN  ROCK  006480 

713  IFtNTSTYP.EO.l )  GO  TO  74  006490  0000 

.  006500  0000 

CHECK  THAT  TUNNEL  SURFACE  NODAL  POINTS  HAUE  BEEN  PROPERLY  ARRANGED  006510  0000 

IF(I.EQ.l)  GO  TO  7130  006520  0000 

CHECK  FOR  PREUIOUS  SEGMENT  IN  ROCK  006530  0000 

N$TYPE-ACI-1,16>  006540  0000 

IF(NSTYPE.EQ.l)  GO  TO  7130  006550  0000 

NPLS-A(I,17>  096560  0000 

NPRS'AC 1-1.18)  006570  0000 

IF(NPLS.EQ.NPRS)  GO  TO  7130  006580  0000 

ISTOP-1  096590  0000 

URITE (LO, 2040)  NTSEG.NREACH  006600  0900 

. - .  096610  9000 

7130  NPLS-ACI.17)  096620  0000 

NPRS«A(I.1I>  096630  0000 
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COSTIIN  Listing  (Tout  iinic-d) 


C  ON  IRPtRVIOUS  LAVER  HOT  SPECIFIES  FOR  CUT  AHD  COYER 

71«  ELIHP-A! 1,84  > 

IF(EL1HP.EG.0.0)  UNITE (10. 2070)  NTSEG, NREACH 

CHECK  IF  IMPERVIOUS  LAVER  ELEVATION  IS  8EL0U  SURFACE  ELEVATION 
ELSVRf • ( ELNPLS+ELNPRS )/2 . 

IF(ELIHP.LE.ELSURF)  00  TO  7180 
ISTOP-l 

WRITE! LO, 2072)  NTSEG, NREACH 
?1M  CONTINUE 

CHECk’if’oPEn'cuT  IS  ENTIRELv"In*ROC<  ’  .  .  . . 

ELR0CK-A!l,27> 

1F<NTSTYP.EG.3.AND.ELR0CK.EQ.EISURF)  GO  TO  7185 

CHECK  IF  IMPERVIOUS  LAVER  IS  AT  THE  SURFACE  AND  GRAIN  SIZE  INPUT 
DOES  NOT  INDICATE  A  CLAV. 

IF<EIIMP.LT.EISURF.OR.D10.1E.0.006>  GO  TO  7185 
ISTOP-1 

WRITE tLO, 2073 J  NTSEG. NREACH 
718S  CONTINUE 

C  . . . . 

IF (HEX. EG. 7)  GO  TO  7205 
C  CHECK  FOR  PROPER  SUPPORT  CODE 

IF(ISUPPT.GE.l.AND.ISUPPT.LE.S)  GO  TO  719 
ISTOP-1 

WRITE! LO, 2075)  NTSEG. NREACH 

719  CONTINUE 

C  . . 

C  CHECK  FOR  PROPER  SUPPORT  CODE  FOR  TUNNEL  TVP£  SPECIFIED 

IF  <  NTST VP . EO . 2 . AND . ISUPPT . LE . 4 . OR . NTSTVP . EG . 3 . AND . ISUPPT . GT . A ) 

1G0  TO  720 
ISTOP-1 

WRITECLO.2080)  NTSEG, NREACH 

720  CONTINUE 

C  CHECK  FOR  PROPER  LINING  CODE  FOR  SUPPORT~TYpi"sPECIFIED~ 

IF! ISUPPT . LE. 3. AND. LINING. EG. 0 )  GO  TO  7205 
IF! ISUPPT. GT -3. AND. LINING. EG. 0)  GO  TO  7200 
IFIISUPPT.EQ.4.AND.LINING.NE.3)  GO  TO  7205 
IF!ISUPPT.GT.4.AND.LINING.NE.2)  GO  TO  7205 
7800  ISTOP-1 

URITEUO.208S)  NTSEG. NREACH 

C  CHECK  IF  SOFT  GROUND  TUNNEL 
720S  IF ! NTSTVP. EO. 2)  GO  TO  725 

C  —————— - - - - — ———————————————— - — — — — _____ ______ 

C  CHECK  FOR  ROCK  ElEU.  IF  TUNNEL  IN  CUT  AND  COVER 
C  IF!ELROCK.EQ.a,Q)  URITE! LO.2090 )  NTSEG, NREACH 

c  *5  below  ground  surface'elevation . 

IF(ELROCK.LE.ELSURF)  go  TO  7210 
ISTOP-1 

WRITE <10. 2092)  NTSEG, NREACH 
7810  CONTINUE 

C  — _ _ 

c  $H5£KJE  12*.?EPTH  is  greater  than  tea  feet 

D  TUN • ELSURF -EL AVG 


007220 

007230 

007240 

007850 

007260 

007270 

007280 

007290 

007300 

007310 

007320 

007330 

007340 

007350 

007360 

007370 

007380 

007390 

007400 

007410 

007420 

007430 

007440 

007450 

007460 

007470 

007480 

007490 

007500 

007510 

007520 

007530 

007540 

007550 

007560 

007570 

007580 

007590 

007600 

007610 

007620 

007E30 

007640 

007650 

007660 

007670 

007680 

007690 

007700 

007710 

007720 

007730 

007740 

007760 

007760 

007770 

007780 

007790 
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t 


gRITE(L0,2137>  NTSEG, NREACh 
729$  CONTINUE 


CHECK  IF  STABILIZATION  METHOD  AGREES  WITH  USE  CODE 
IF ( HSTAB . GE . 0 . AND . MUST . EO . 4 . OR . MST AB . GT . 9 . AND . HUST . EQ . 3 . OR . 
INSTAB. EQ. 9. AND.NUST.LT, 3)  GO  TO  730 
I  STOP *1 

URIT£(LO,2l40 )  NTSEG, NREACH 
730  CONTINUE 


CHECK  IF  STABILIZATION  METHOD  IS  INPUT 
IF(nSTAB.EO.O)  GO  TO  74 


CHECK  IF  STABILIZATION  METHOD  IS  ACCEPTABLE 
GO  TO  (731,732,733),  MSTAB 


731 


AIR  PRESSURE  —  CHECK  IF  SOIL  IS  A  GRAUEl 
IFCPERP1.lt.  10.E-10.AND.D10.GT.2.  )  GO  TO  734 
IF (PERM. GT. 0.4 )  GO  TO  ?34 
CHECK  IF  SOIL  IS  CLAV 
IFCD10. IE. 0.005)  GO  TO  73? 

CHECK  IF  TUNNEL  ABOuE  GROUND  UATER  TABLE 
IF (ELUATR.LT. EL AUG )  GO  TO  73? 

CHECK  IF  WATER  HEAD  LESS  THAN  115  FEET 
IF (ELUATR-ELAUG. LE . 1 15 . )  GO  TO  737 
GO  TO  734 


DEWATERING  —  CHECK  IF  DEUATERING  IS  ALLOWED 

732  IF ( IUATER . EQ . 0 )  GO  TO  734 
IF( D10.LE .0.005  )  GO  TO  734 

CHECK  IF  TUNNEL  IS  ABOUE  GROUND  UATER  TABLE 
IF (ELUATR.LT. ELAUG )  GO  TO  734 

CHECK  IF  SOIL  IS  FINE  SAND  OR  COARSER  OR  IS  REASONABLv  PERMEABLE 
IF ( PERM ,LT. 10 .E- 10. AND. DIO . GT .0. 08  )  GO  TO  737 
IFCPERPl.GT. 0.0006)  GO  TO  737 
GO  TO  734 

GROUND  INJECTIONS  —  CHECK  IF  SOIL  IS  NOT  CLAV 

733  IF (D1C.GT. 0.005)  GO  TO  737 

STABILIZATION  METHOD  IS  NOT  ACCEPTABLE 

734  MSTAC-2 

CHECK  IF  USE  CODE  EQUALS  4 
IF ( MUST . EQ .4  )  GO  TO  735 
WRITE (LO, 2145 )  NTSEG, NREACH 
GO  TO  738 

735  ISTOP-1 

WRITE ( L0.2147  )  NTSEG, NREACH 
GO  TO  738 


STABILIZATION  METHOD  IS  ACCEPTABLE 

737  MSTAC* 1 

738  At  1, 34). MSTAC 
74  IPR-NREACH 


CO  TO  50 

END  OF  TUNNEL  SEGMENT  DATA 
75  CONTINUE 


008390  0000 
008400  0000 

e084:0  0000 

008420  0000 
008430  0000 
008440  0000 
008450  0000 
008460  0000 
008470  0000 
008480  0000 
008490  0000 
008500  0000 
008510  0000 
008520  0000 
008530  0000 
008540  0000 
008550  0000 
008560  0000 
008570  0000 
008560  0000 
008590  0000 
008600  0000 
008610  0000 
008620  0000 
00863U  0000 
008640  0000 
008650  0000 
008660  0000 
008670  0000 
008680  0000 
008690  0000 
008700  0000 
008710  0000 
008720  0000 
008730  0000 
008740  0000 
008750  0000 

008?6e  0000 

008770  0000 
008780  0000 
008790  0000 
008800  0000 
008810  0000 
008820  0000 
008830  0000 
008840  0000 
008850  0000 
008860  0000 
008870  0000 
008880  0000 
008890  0000 
008900  0000 
008910  0000 
008920  0000 
008930  0000 
008940  0000 
008950  0000 
008960  0000 
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mitimmimiiimmimiiiiiimmiiiimimiitmtiitim 

umtmimmimtimimmonioHtixiHtmmmtiuim 

HEAD  REACH  DATA  FOR  TUNNELS 

INITIALIZE  REACH  ARRAY 
DO  80  1*1,  NTRNAX 
88  TRDATA (I,1)*-10.E30 

READ  REACH  DATA  FROM  CARD 

81  READ  (LI, 1828)  NR£ACHtNSHAFT,8FT, ISHAPE, NTH, HOURS. DAVS.NBOX, 
lBFBUDT.BPBHT, IB0X2, ISEPCK 

IF (NREACH . EG . 9999  >  GO  TO  86 
CHECK  FOR  HISSING  SEPARATOR  CARD 
IF ( ISEPCK  .£0.0  )  GO  TO  82 
I  STOP  •  1 
URITE  <L0, 1502  ) 

GO  TO  425 

82  CONTINUE 

IF ( NRE ACH.  LE.  NTRflAX.  AND  .NREACH.  GT  .  0 )  GO  TO  84 
URITE ( LO, 1821  )  NREACH, NTRMAX 
ISTOP-l 
CO  TO  81 

84  CONTINUE 

CHECK  FOR  FINISHED  DIMENSION  BETUEEN  10  AND  40  FEET 

IF ( ISHAPE. GT. 0. AND. BFT.LT. 10. .OR. ISHAPE. GT.0. AND. BFT.GT. 40. ) 

1URITE ( LO, 1064  )  NREACH 

CHECK  IF  TUNNEL  SIZE  INPUT  AGREES  UITH  SHAPE  CODE 

IF(BFT.EQ.0. AND. ISHAPE. EG. 0. OR. BFT.GT.0. AND. ISHAPE. GT.0)  GO  TO  840 

I STOP -1 

IF ( ISHAPE .GT . 0 )  URITE (LO, 2150  )  NREACH 
IF ( ISHAPE .EQ .0  )  URITE ( LO, 2151 )  NREACH 
840  CONTINUE 

CHECK  FOR  PREUIOUS  USE  OF  REACH  NUMBER 
IF(TRDATA(NREACH,1).LT.-10.E29)  GO  TO  85 
URITE< LO, 1026 )  NREACH 
I STOP -1 

85  CONTINUE 


CHECK  FOR  PROPER  MUCK  TRANSPORT  METHOD 
IF (flTd.CE .0 .  AND.HTM.LE. 4  )  GO  TO  850 
URITECLO, 1041 )  NREACH 
ISTOP-1 
850  CONTINUE 


I0DE 


CHECK  FOR  PROPER  TUNNEL  SHAPE  CODE 
IF(ISHAPE.GE.0. AND. ISHAPE. LE. 3)  GO  TO  851 
URITE (LO. 1042)  NREACH 
I STOP* 1 
851  CONTINUE 


CHECK  IF  SHAPE  CODE  AGREES  UITH  MUCK  TRANSPORT  METHOD 


088870 

008980 

808990 

889000 

089010 

088020 

809030 

089840 

009850 

009060 

009070 

009080 

009090 

009100 

009110 

009120 

009130 

009140 

809150 

009160 

009170 

009180 

009190 

009200 

009210 

009220 

009230 

009240 

009250 

009260 

009270 

009280 

009290 

009300 

009310 

009320 

009330 

009340 

009350 

009368 

009370 

009380 

009390 

009400 

009410 

009420 

009430 

009440 

809450 

009460 

009470 

009480 

009490 

009500 

009510 

009520 

009530 

009540 


80ee 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

8000 

0000 

0000 

0000 

0000 

ee00 

0000 

0000 

0000 

eeee 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

3000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

oooe 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 
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iFasHAPE.cT.e.ftNC.NTn.aT.e.oft.iSHflPE.EO.e.ftND.nTn.EQ.e)  go  to  8S8  009550 
ISTOP-1  893560 

IFIISHAPE.EO.0)  UfiITE<tO,ai52)  NREACH  009570 

IFUSHAPE.GT.0)  WRITE ( LO, 8153 >  NREACH  009580 

858  CONTINUE  009530 

m  ^  —  _ -m _ w  — _ r  — _ f  — _ —  —  — —  —  —  009690 

CHECK  IF  WORK  HOURS  PER  DRV  IN  PROPER  RANGE  009610 

IF(HOURS. GE.0.. AND. HOURS. LE. 84. )  GO  TO  853  009680 

I STOP* 1  009630 

WRITE 0.0, 8 155)  NREACH  009640 

853  CONTINUE  009650 

- 009660 

CHECK  IF  WORK  DAYS  PER  WEEK  IN  PROPER  RANGE  009670 

IF ( DAYS . GE . 4 . . AND . DAYS . L£ . 7 . . OR . DAYS . EQ . 0 .  )  GO  TO  854  009680 

ISTOP-t  009690 

WRITECLO.8160)  NREACH  009700 

854  CONTINUE  009710 

IS  THIS  AN  UNDERGROUND  HEADING  RATHER  THAN  CUT  AND  COUER  009730 

IF ( ISHAPE . GT .0  )  GO  TO  858  009740 

. - . - .  009750 

CHECK  FOR  INPUT  UALUES  FOR  BOX  UIDTH  AND  HEIGHT  009760 

IF ( BFBUDT . GT . 0 . 0 . AND . BFBHT . GT . 0 . 0  )  GO  TO  855  009770 

ISTOP-1  009780 

WRITE 0.0. 8165)  NREACH  009790 

855  CONTINUE  009800 

- - - . . . . .  009810 

CHECK  IF  TOTAL  CLEAR  BOX  UIDTH  EXCEEDS  40  FEET  009880 

IF ( BFBUDT. GT. 40. >  URITE(LO,8170  )  NREACH  009830 

- - - - - . - . . . . .  009840 

CHECK  TYPE  OF  BOX  SECTION  009850 

IFCIB0X8.EQ.1)  GO  TO  857  009860 

— . - . - . - . —  009870 

SINGLE  LEUEL  BOX  —  CHECK  IF  NUfTBER  OF  BOX  UNITS  IS  SPECIFIED  009880 

IFCNBOX.GT.0)  GO  TO  856  009890 

ISTOP-1  009900 

URITE(L0.817S)  NREACH  009910 

856  CONTINUE  009980 

-  009930 

CHECK  IF  BOX  HEIGHT  IS  GREATER  THAN  80  FEET  009940 

IFCBFBHT.GT .20.  )  URITECLO.8180  )  NREACH  009950 

GO  TO  858  009960 

. 009970 

DOUBLE  LEUEL  BOX  —  TWO  UNITS  HIGH  AND  TUO  UNITS  WIDE  009980 

CHECK  IF  TOTAL  CLEAR  BOX  HEIGHT  EXCEEDS  40  FEET  009990 

857  IF(BFBHT.GTi40.  )  URITEC L0.2185 )  NREACH  010000 

858  CONTINUE  010010 

- - - - - - - -  010080 

TROATACNREACH, 1 ) *NSHAFT  010030 

TRDATAl NREACH, 8 )*BFT  010040 

TROATAiNREACH. 3  )*TSHAPE  010050 

TRDATAt NREACH, 4  WiTfl  010060 

TRDATA (NREACH, 8) -HOURS  010070 

TRDATAC NREACH, 9) -DAYS  010080 

TRDATA (NREACH, 10 J-NBOX  010090 

TRDATA (NREACH, 11 J-BFBWDT  010100 

TRDATA (NREACH, 18) -BFBHT  010110 

TRDATA! NREACH, 13  )-IB0X8  010180 

GO  TO  81  010130 


0000 

0000 


0000 


0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

000e 

0000 

0000 

0000 

00ee 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

3000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 
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COSTUN  Listing  (Continued) 


C  - - — . — 

C  END  OF  REACH  INPUT 
86  CONTINUE 

CHECK  REACH  AND  SEGMENT  INFORMATION  FOR  COMPATaBILITV 


DO  87  I-l.NTS 
NREACH-AU.4) 

NTSEG»A(I.l) 

NTSTVP'AC I , 16 ) 

MEX* AC 1,7 ) 

BFT  •  TRDAT  A ( NRE ACH , 2  3 
ISHAPE*TRDATACNREACH,3) 

MTM  •  TRD  AT  A  <  NRE  AC  H ,  4  3 
ISUPPT-ACI.26) 

MSTAB-ACI.31 3 
MUST  *A( 1,32 ) 

NPL-ACI.2) 

NPR*A(I,3 ) 

ELNPL*CNP(NPL.8  3 
ELNPR*CNPCNPR,2  3 
ELAUG*  < ELNPL+ELNPR  3/2 . 

ELUATR'AC  1,14) 

ELIMP*A<I,24  ) 

IF  THE  TUNNEL  SEGMENT  IS  MOLED.  ITS  SHAPE  MUST  BE  CIRCULAR 
IF ( MEX . NE . 2 . AND . MEX . NE . 3  1  GO  TO  860 
IF< ISHAPE.EO . 1 )  GO  TO  860 
URITE  t  LO, 1040  )  NTSEG.NREACH 
ISTOP‘1 
860  CONTINUE 

CHECK  FOR  CUT  AND  COUER  OR  ROCK  TUNNEL 
IF(NTSTYP.NE.2 )  GO  TO  865 


CHECK  IF  IMPERVIOUS  LAVER  IS  A  REOUIRED  INPUT 
IF(MUST.GE.3.AND.MSTAB.NE.2)  GO  TO  861 
IUATER*A< 1,231 
D10-ACI.19) 

PERM*A( 1,25 ) 

IFCIUATER.EQ.0.OR.PERM.LT.10.E-10.AND.D10.LE.0.08.OR.PERM.GT. 
110. E-10. AND. PERM. LE. 0.00063  GO  TO  861 

CHECK  IF  IMPERUIOUS  LAVER  IS  ABOVE  TUNNEL  UHEN  DEUATERING  MAV 

BE  USED  AS  A  STABILIZATION  METHOD 

IFCELIMP.LT. ELAUG+BFT/2. )  GO  TO  861 

URITECLO.2190 3  NTSEG.NREACH 

AC  1,24  3*ELAUG-BFT/2. 

861  CONTINUE 


CHECK  IF  TRUCK  TRANSPORT  IS  SPECIFIED  AND  COMPRESSED  AIR  REQUIRED 
IFCMTM. NE. 1. OR. MSTAB.CT.l. OR. MSTAB. EG. 0. OR. MUST. LT. 43  GO  TO  863 
ISTOPM 

URITECL0.219S)  NTSEG.NREACH 
863  CONTINUE 

C  - . — . - . - . 

C  CAST  IRON  TUNNEL  SUPPORT  -  CIRCULAR  TUNNELS  ONLY 
IFCISUPPT.GT.l. OR. ISHAPE.EO. 13  GO  TO  865 
ISTOP-1 

URITE (LO. 2200 3  NTSEG.NREACH 


010140  0000 
010150  0000 

a:0ise  0000 

010170  0000 
010180  0000 
010190  0000 
010200  0000 
010210  0000 
010220  0000 
010230  0000 
010240  0000 
010250  0000 
010260  0000 
010270  0000 
010280  0000 
010290  0000 
010300  0000 
010310  0000 
010320  0000 
010330  0000 
010340  0000 
O10350  0000 
010360  0000 
010370  0000 
010380  0000 
010390  0000 
010400  0000 
010410  0000 
010420  0000 
010430  0000 
010440  0000 
010450  0000 
010460  0000 
010470  0000 
010480  0000 
010490  0000 
010500  0000 
010510  0000 
010520  0000 
010530  0000 
010540  0000 
010550  0000 
010560  0000 
010570  0000 
010580  0000 
010590  0000 
010600  0000 
010610  0000 
010620  0000 
010630  0000 
010640  0000 
010650  0000 
010660  0000 
010670  0000 
010680  0000 
010690  0000 
010700  0000 
010710  0000 


(Continued) 
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L'OSTUN  Listing  (Continued) 


86S  continue 


CHECK  IF  SHAPE  CODE  AGREES  UITH  “UNNEL  TvPE 
IF t NTSTYP.LT .3. AND . I SHAPE. GT . 0 )  GO  TC  86? 
IF(NTSTVP,EG.3.  AND .  I  SHAPE . EO.0  3  GO  TO  86*’ 
ISTOP-1 

IF(NTSTYP ,LT .3 )  URITECLO.2201  )  NTSEG.NREACH 
IFCMTSTYP.EQ. 3 3  URITE ( LO. 2202 )  NTSEG.NREACH 


CHECK  FOR  CUT  AND  COYER  EXCAVATION 
867  IF(NTSTYP ,N£ . 3 3  GO  TO  87 
BFBHT • TRDATA <  NREACH. 13  3 


CHECK  IF  SOUND  ROCK  LINE  IS  ABOVE  BASE  OF  TRENCH  AND  ROD  IS  LESS 
THAN  S0 
ROD-AC I ,6 ) 

ELROCK-AC 1,27 ) 

IFCRQD.GE.S0. .OR. ELROCK.LT. ELAUG-BFBHT/2.  )  GO  TO  8S9 
IF ( RQD.GE.2S. 3  URITE < LO, 2203 3  NTSEG.NREACH 
IFCRQD.GE.2S. 1  GO  TO  B69 
ISTOP-1 

URITECLO.22041  NTSEG.NREACH 
869  CONTINUE 

CHECK  FOR  UATER  TABLE  ABOVE  BASE  OF  TRENCH  AND  A80UE  IMPERVIOUS 

LAYER  FOR  SLOPING  CUT  EXCAVATION  —  IUATER  MUST  EQUAL  1 

IF cMEX.NE . 7 )  GO  TO  87 

IUATER-ACI.233 

IFCIUATER.EQ.il  GO  TO  87 

IFCELUATR . LT. ELAVG-BFBHT/2. . OR .ELUATR. LE .ELIMP 1  GO  TO  8? 

ISTOP-1 

URITEC LO, 2205 3  NTSEG.NREACH 

87  CONTINUE 

tttimmmmmimmmttimmmmmmmmimtmo 

READ  SHAFT  SEGMENT  DATA  XXXXXXXXXXXXXXXXXtXXXXXXXXXXX 

INITIALIZE  SHAFT  SEGMENT  ARRAY 
DO  88  I-l.NSSMAX 

88  BCI.13--10.E30 
INITIALIZE  THE  SHAFT  ARRAY 
DO  89  I-l.NSMAX 

89  SHAFT C 1 , 1 3 --10 .E30 
IPS-0 

1-0 

90  I-I+l 

CHECK  FOR  MAX  NUMBER  OF  SHAFT  SEGMENTS 
IFCI.LE.NSSMAX3  GO  TO  95 

CHECK  FOR  END  OF  SHAFT  SEGMENT  DATA.  NDUM- DUMMY  SEGMENT  NUMBER 

91  READCLI, 10201  NDUM 

IF C NDUM. EG. 9999 3  GO  TO  130 
URITECLO, 10173  NSSMAX 
ISTQP-1 


010720 
010730 
010740 
010750 
010760 
e 10770 
01 0780 
010750 
010800 
010810 
ei0820 
010830 
010840 
010850 
010860 
ei0865 
010870 
010880 
010890 
010900 
010910 
010920 
010930 
010940 
010950 
010960 
010970 
010980 
010990 
011000 
011010 
011020 
011030 
011040 
011050 
011060 
011070 
011080 
011090 
011100 
011110 
011120 
011130 
011140 
011150 
011160 
011170 
011180 
011190 
011200 
011210 
011220 
011230 
011240 
011250 
011260 
011270 
011280 
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COSTUN  Listing  (Continued) 


GO  TO  91 


READ  SHAFT  SEGMENT  DATA  FROM  CARD 
95  READCLI, 1007  >  ( B 1 1, J  ). J- 1. IS  ) 

NSHAFT-IU.l) 

NSSEG-BC 1,2 ) 

NSSTYP-BC 1,15) 


CHECK  FOR  LAST  SHAFT  CARD 
IF (NSHAFT.EO .9999  )  GO  TO  130 
IF  t  NSHAFT. LE . N5MAX . AND . NSHAFT . GT . 0 )  GO  TO  100 
Ufl ITE  <  LO , 1 034  )  NSHAF T , NSSEG , NSM AX 
ISTOP-1 

100  CONTINUE 

C  - . - - - - - - 

C  CHECK  FOR  MISSING  SEPARATOR  CARD 
IFtNSSTVP.NE.0J  GO  TO  101 
ISTOP-1 

JRITEt 10, 1503  ) 

101  CONTINUE 

C  . . — . - . . . 

C  CHECK  FOR  PROPER  SHAFT  TYPE  CODE 

IFtNSSTYP.GE.l.AND.NSSTVP.lE.3)  GO  TO  103 
ISTOP-1 

URITE (10,2207)  NSSEG, NSHAFT 
GO  TO  425 

102  CONTINUE 

C  . — 

C  READ  SECOND  SEGMENT  DATA  CARD  IF  NOT  ROCK  TUNNEL 
IFtNSSTYP.GT.l )  READtLI, 1008  )  < BC I , J  ), J- 16,27  ) 

C  . - . 

C  CHECK  FOR  PREVIOUS  USE  OF  SHAFT  NUMBER 
IFCI.EQ.l)  GO  TO  105 
IFCNSHAFT .EQ. IPS  )  GO  TO  106 
IF (SHAFT (NSHAFT, 1  ) . LT . -10 . E29  )  GO  TO  105 
URITEt LO, 1023 )  NSSEG, NSHAFT 
ISTOP-1 

105  SHAFT t NSHAFT, 11-0. 

106  CONTINUE 

C  . - . . . . 

C  CHECK  THAT  SHAFT  SEGMENT  CARDS  HAUE  BEEN  PROPERLY  ARRANGED 
IFCI.EQ.l)  GO  TO  108 
IFC IPS. NE. NSHAFT)  GO  TO  108 
IF(B(I,3).EG.B(I-1,4) )  GO  TO  108 
URITE (LO, 1115)  NSSEG, NSHAFT 
ISTOP-1 
108  CONTINUE 

—  —  —  _  _  _  _  _  __  __ 

C  CHECK  THAT  ALL  SHAFT  NODAL  POINTS  HAUE  BEEN  INPUT 
NPT-BU.3) 

NPB-B( 1 ,4 ) 

ELNPT-CNP(NPT.2) 

ELNPB-CNP ( NPB , 2 1 

IFCELNPT.GT.-10.E29.AND.ELNPB.GT.-10.E29)  GO  TO  110 
URITECLO, 1131 )  NSSEG, NSHAFT 
ISTOP-1 
110  CONTINUE 


011290  0000 
011300  0000 
011310  0000 
011320  0000 
011330  0000 
011340  0000 
011350  0000 
011360  0000 
011370  0000 
011380  0000 
011390  O000 
011406  0000 
011410  0000 
011420  0000 
011430  0600 
011-40  0000 

011-50  0000 
011460  0000 

011470  0000 

011480  0000 
011490  0000 
011500  0000 
011510  0000 
011520  0000 
011530  0000 
011540  0000 
011550  0000 
011560  0000 
011570  0000 
011580  0000 
011590  0000 
011600  0000 
011610  0000 
011620  6000 
011630  0000 
011640  0000 
011650  0000 
011660  0000 
011670  0000 
011680  0000 
011690  0000 
011700  0000 
011710  0000 
011720  0000 
011730  0000 
011740  0000 
011750  0000 
011760  0000 
011770  0000 
011780  0000 
011790  0000 
011800  0000 
011810  0000 
011820  0000 
011830  0000 
011840  0000 
011850  0000 
011860  0000 
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C.OS'I'UN  Listing  (Continued) 


CHECK  FOR  SHAFT  BEING  A  PORTAL.  IF  SO, RECORD  THIS  FACT 

NPORT«0 

IF  1 NPT .EQ.NPB  3  NPORT-1 
SHAFT (NSHAFT, 23  3-NPORT 

IF  SHAFT  IS  A  PORTAL  .SKIP  THE  F0LL0UIN3  INPUT  CHECKS 
IF (NPT .EQ.NPB )  GO  TO  128 

CHECK  FOR  PROPER  EXCAUATION  HETHOD 
HEX*B( 1,7 ) 

if(HEx.ge.r. and.hex.le.4 >  go  to  112 
I STOP *1 

URITElLO, 1929 )  HSSEG, NSHAFT 

112  CONTINUE 

CHECK  FOR  Durtriv  SHAFT  AND  BYPASS  FURTHER  CHECKS 
LINING*8( 1,10 ) 

RS*B( 1,5 ) 

ROD*B( 1,6  ) 

IF i NSST YP . EG . 1 . AND . RS . LE . 8 . . AND.RQD.LE.0. 

1  .AND. PIEX.EQ.0. AND. LINING. EO.0)  GO  TO  129 

113  CONTINUE 

CHECK  FOR  PROPER  EXCAUATION  NETHOD  FOR  SHAFT  TYPE  SPECIFIED 
IF (NSSTYP.EG. 1 .AND .HEX , LT . l .OR .NSSTYP . EG . 1 .AND . HEX .GT .2  3  GO  TO 
IF<NSSTYP.EG.2.AND.flEX.LT.3)  GO  TO  114 
IFCNSSTYP.EQ.3.AND.NEX.GT.0)  GO  to  114 
GO  TO  115 

114  ISTOP-l 

URITE ( LO, 2210  )  NSSEG, NSHAFT 

CHECK  FOR  ADUANCE  RATE  NOT  SPECIFIED 

115  AR»B( 1 ,8  3 
IFCAR.EO.0.0)  GO  TO  120 


CHECK  FOR  ADUANCE  RATE  LESS  THAN  0  FT/DAY 

IF(AR.GT.0.0)  GO  TO  120 

ISTOP*l 

URITE (LO, 1075)  NSSEG, NSHAFT 


CHECK  FOR  ROCK  STRENGTH  GREATER  THAN  500  PSI 
120  CONTINUE 

IF(RS.LT.S00. .AND.NSSTYP.EQ.il  URITE( LO, 1070  )  NSSEG, NSHAFT 

CHECK  FOR  PROPER  SHAFT  CODE  IF  ROD  IS  LESS  THAN  25.' 

IF(NSSTVP.GT.1.0R.RQD.GE.25.  )  GO  TO  122 

ISTOP*! 

URITECLO, 22123  NSSEG, NSHAFT 
122  CONTINUE 

IS  SHAFT  IN  SOFT  GROUND  AND  ROD  GREATER  THAN  25. 

IF ( NSSTYP . EG . 2 . AND . ROD . GT . 25 .  )  URITE(LO,2215  )  NSSEG, NSHAFT 

CHECK  FOR  ROD  BETWEEN  c'aNdTm? 

IF(RQD.GE.0. 0. AND .RQD . LE . 100.  )  GO  TO  126 
URITEtLO, 1072)  NSSEG, NSHAFT 
ISTOP* 1 
126  CONTINUE 


—  01 1 3"’0 
011380 
Cl  1850 
011300 
oitsie 
011920 
011930 

....  eime 
011950 
011960 
0ii97e 
011980 
011990 
012000 
012010 
012020 
012030 
012040 
012050 
012060 
012070 
0120E0 

—  -  012090 

012100 
114  012110 
012120 
012130 
012140 
012150 
012160 

■—  012170 
012180 
012190 
012200 

— -  012210 
012220 
012230 
012240 
012250 

—  012260 
012270 
0122S0 
012290 

—  012300 
012310 
012320 
012330 
012340 
012350 

—  012360 
012370 
012380 

—  012390 
012400 
012410 
012420 
012430 
012440 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

oooe 

0000 

0000 

oooe 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

08e0 

0000 

00ee 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

oooe 

0000 

0000 

0000 

0000 

0000 
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COSTl.'N  Listing  ( l\m  t  i  init/d ) 


CHECK  FOR  CONTRADICTION  OF  SPECIFYING  A  ThICKNESS  FOR  NC  LINING 

LINING* 1(1, 10) 

IF ( LINING.NE .0 .OR .NSSTvP .NE . 1 1  GO  TO  127 
TL.8tI.ll) 

IFtTL.LE. 0.001 >  CO  TO  127 
URITEtLO, 1046 )  NSSEG.NSHAFT 
ISTOP-1 
127  CONTINUE 


CHECK  FOR  PROPER  LINING  TvPE  CODE 
IFCLINING.GE.0. AND. LINING. LE. 3)  GO  TO  1270 
URITEtLO, 1048 )  NSSEG.NSHAFT 
ISTOP-1 
1270  CONTINUE 


CHECK  FOR  PROPER  LINING  CODE  FOR  SHAFT  TYPE  SPECIFIED 
IF  (NSSTVP .LT.3.AND.LINING.NE.3.0R.NSSTYP.E0.3. AND . LINING. EO. 3 ) 
1G0  TO  1272 
ISTOP-1 

URITEtLO. 2220)  NSSEG.NSHAFT 


CHECK  FOR  PROPER  UATERTIGHT  CODE 
LINUT-Bt 1,14) 

IFtLINUT. £0.0. OR. LINUT.EG . 1 )  GO  TO  1274 
I STOP *1 

URITEtLO. 2225)  NSSEG.NSHAFT 
CONTINUE 


ALL  CUT  AND  CODER  BOX  SEGMENTS  ARE  DESIGNED  AS  UATERTIGHT  - 
INPUT  IGNORED 

IF(NSSTYP.EG.3.AND.LINUT.EG.0)  URITEl L0.2227  )  NSSEG.NSHAFT 

A  LINING  OR  SUPPORT  MUST  BE  SPECIFIED  UHEN  UATERTIGHTNESS  REQUIRED 
ISUPPT-Bt 1.22) 

IFtLINUT. EG. 0. OR. LINING. GT.0)  GO  TO  1276 
IF (N5STYP. GT . 1 .AND. ISUPPT . LE . 3 )  GO  TO  127G 
ISTOP-1 

URITEtLO. 2230)  NSSEG.NSHAFT 

CHECK  IF  GROUNDUATER  ELEUATION  NOT  INPUT  AND  UATERTIGHT  REQUIRED 
ELUATR-BtI.13) 

IFtLINUT. EQ.l. AND. ELUATR.EO.0)  URITE ( LO. 2235  )  NSSEG.NSHAFT 

CHECK  IF  SHAFT  NOT  IN  ROCK  AND  GROUNDUATER  ELEU  NOT  SPECIFIED 
IF(NSSTYP.GT.1.AND.ELUATR.EQ.0)  URITEtLO. 2235)  NSSEG.NSHAFT 

CHECK  IF  GROUND  UATER  ELEUATJON  IS  IN  MIDDLE  OF  SHAFT  SEGMENT 

IF(ELUATR.GE.ELNPT.OR.ELUATR.LE.ELNPB)  GO  TO  1277 

ISTOP-1 

URITEtLO, 2240 >  NSSEG.NSHAFT 

CHECK  REMAINING  DATA  IF  SHAFT  IS  NOT  IN  ROCK 
IF (NSSTVP. £Q. 1  )  GO  TO  128 

CHECK  IF  EFFECTIUE  GRAIN  SIZE  IS  INPUT 

010-8(1. 16) 

IFtDIO.GT .0 )  GO  TO  1278 


012450 

012*60 

012470 

012420 

012490 

012500 

012510 

012520 

012530 

012540 

0125S0 

012560 

012570 

012580 

012590 

012600 

812610 

812620 

012630 

0126*0 

012650 

012660 

012670 

012680 

012690 

012700 

012710 

012720 

012730 

012740 

012750 

012760 

012770 

012780 

012790 

012800 

012810 

012820 

012830 

012840 

012850 

012860 

012870 

012880 

012890 

012900 

612910 

012920 

012930 

012940 

012950 

012960 

012970 

012980 

012990 

013000 

013010 

013020 


(Cont inued ) 
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(MSI  UN  I  ist  ill)'  (Cunt  i  inifil  ) 


ISTOP-1 

WRITE ( LO, 2245 )  NSSEG.NSHAFT 

C  - - - . — . 

C  CHECK  THAT  PHI  AND/OR  COHESION  ARE  SPECIFIED 

1278  PHI-IC 1,19) 

C0HESN-B( 1,17) 

IFCPHl.GT.0. .OR.COHESN.GT.0. )  GO  TO  1279 
I STOP-1 

URITE<LC,22S0)  NSSEG.NSHAFT 

1279  CONTINUE 


C  CHECK  FOR  POSSIBLE  ERROR  IN  PERMEA8 ILITv  INPUT 
PERfl-B l 1,23 ) 

IF(PERH.GT. 10.  )  WRITE ( LO. 2251 )  NSSEG.nShAFT 

i*  _ - _ - _ _  _  _  - _ - _ _ _ - _ 

c  CHECK  IF  PHI  GREATER  Than  45  -  WARNING,  OR  GREATER  Than  100  -ERROR 
IF (PHI .GT.45.  1  WRITE 1 10, 2252  )  NSSEG.NSHAFT 
IFCPMI.LT.100. )  GO  TO  1280 
ISTOP-1 

WRITE(L0,22S3 )  NSSEG.NSHAFT 

C  . - . - - - - - 

C  CHECK  IF  GANNA  GREATER  THAN  200. 

1280  GAMNA-8 ( 1,18! 

IF ( GANNA . IE . 200.  )  GO  TO  1281 
ISTOP-1 

WRITE*  LO, 2254  !  NSSEG.NSHAFT 

C  . - . - . — . . . - . - . - 

C  CHECK  FOR  PROPER  DEUATERING  CODE 

1281  IUATER-B ( 1,21 ) 

IF  c I  WATER. EQ . 0 . OR . I WATER .EG.  1 )  GO  TO  1282 
ISTOP-1 

WRITE(L0,2255)  NSSEG.NSHAFT 

C  . . - . . . - . 

C  CHECK  IF  IPIPERUIOUS  LAVER  IS  A  REQUIRED  INPUT 

1282  P1STAB-B C  1,25; 

NUST-B (1,26) 

IF ( FIUST . GE . 3 . AND .  HSTA8 . N£.  2 )  GO  TO  1284 

IF ( IUATER.EG.0.OR.PERF1.LT.10.E-10,  AND.D10.LE.0.08.OR.PERT.GT. 

118. E-10. and. PERN. LE. 0.00061  GO  T0  1284 


DEWATERING  IS  ALLOWED.  CHECK  IF  INPERUIOUS  LAV£R  IS  NOT 
SPECIFIED  OR  IF  THE  INPERUI0U5  LAvER  IS  ABCUE  BASE  OF  SEGNEN” . 
ELIflP- 8(1,20) 

IF( ELIHP . EG. 0. 0 )  URITE ( 10,2260  )  NSSEG.NSHAFT 

IF(ELINP.LE.ELNPB)  GO  TO  1284 

ISTOP-1 

WRITE  c  LO, 2262  )  NSSEG.NSHAFT 

1284  CONTINUE 

CHECK  CCR  PROPER  SU°PORT  CODE 
IFCISUPPT.GE.I.AND.ISUPP’.LE.S)  GO  TO  1285 
ISTOP-1 

URITE C LO. 2265  )  NSSEG.NSHAFT 

1285  CONTINUE 

CHECK  FOR  PROPER  SUPPORT  CODE  FOR  SHAFT  TVPE  SPECIFIED 
IF (NSSTVP .EQ. 2 .AND . 1SUPPT .GT.0.OR.N5STVP.EQ.3, AND . ISWPPT. EO . 5 ) 
1G0  TO  1286 


013038 

013040 

013050 

013060 

0130T0 

813080 

013090 

013100 

013110 

013120 

013130 

013140 

013lSe 

0l3l6e 

013170 

013180 

013150 

013200 

013210 

013220 

013230 

0l324e 

013250 

013260 

013270 

013280 

013290 

013300 

013310 

013320 

013330 

013340 

013350 

013360 

013370 

013388 

013390 

013400 

013410 

013-20 

013430 

013440 

013450 

013460 

013470 

013480 

013490 

013500 

013510 

013520 

01353e 

013540 

0135S0 

013560 

013570 

013580 

013590 

013600 
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COSTl'N  Listing  (I'ont  iimi'tl) 


ISTOP-1 

WRITE (10,2278)  NSSEG.NSHPFT 
1286  CONTINUE 


:  CHECK  FOR  PROPER  LINING  CODE  FOR  SUPPORT  TVPE  SPECIFIED 

IFCSUPPT. LE. 3. PND. LINING. EQ. 0  1  GO  TO  1§88 
IF<ISUPPT.E0.S.PND.LINING.EG.3 1  GO  TO  1288 
IFCISUPPT. EQ. 4. AND. LINING. EQ. 0 >  GO  TO  1287 
IF<ISUPPT.EQ. 4. AND. LINING. NE.3>  GO  TO  1288 

1287  ISTOP-1  „ 

URITEtLO.2275)  NSSEG.NSHPFT 

1288  CONTINUE 


CHECK  FOR  CUT  PND  COVER  SHPFT 
IF  CNSSTVP. EQ . 3  )  GO  TO  129 


CHECK  FOR  HIGH  STPBILITV  NUMBER  -  NPV  RESULT  IN  UNEXCPUPTABLE 
SXASNO'B  C  X  24 ) 

IF(STPBNO . LE . 9 .PND.PHI . LT. 29 . OR . STPBN0. LE . 7. PND. PH I. GE. 29) 

1  GO  TO  1289 
ISTOP-1 

URITE(L0,2285)  NSSEG.NSHPFT 

CHECK  FOR  PROPER  STABILIZATION  CODE 
WSTPB*8( 1,25) 

IFCMSTAB .GE .0.PND .MSTAB . LE .3 )  GO  TO  1298 
ISTOP-1 

URITEC  LO, 2290  )  NSSEG.NSHPFT 

CHECK  FOR  PROPER  USE  OF  STPBILIZPTION  METHOD  CODE 
MUST-BC 1,26 ) 

IF < MUST, GE . 1 . PND .MUST . LE .4 )  GO  TO  1292 
ISTOP-1 

URITECL0.229S)  NSSEG.NSHAFT 

CHECK  FOR  AIR  PRESSURE  INPUT  IF  STPBILITV  NUMBER  INPUT  AND 
AIR  PRESSURE  STABILIZATION  INPUT 
AIRPfi-B< 1,27 ) 

IF (STABNO .GT .0 .0 .AND .MSTAB .EG. 1 .AND. A1RPR .EG .0 .0)  GO  TO  1293 

GO  TO  1294 

ISTOP-1 

URITE(LO,2300)  NSSEG.NSHAFT 
CONTINUE 

CHECK  FOR  USE  CODE-4  UHEN  STPBILITV  NUMBER  IS  SPECIFIED 

IF(5TABNO.EQ.0.OR.MUST.EQ.4)  GO  TO  1296 

ISTOP-1 

WRITE CLO. 2305)  NSSEG.NSHPFT 
CONTINUE 

CHECK  IF  STABILIZATION  METHOD  NOT  COMPRESSED  AIR  BUT  AIRPR  GT 

IF (MSTPB .EG. 1 . OR . AIRPR .EG . 0 .  )  GO  TO  1297 

ISTOP-1 

URITECLC.2307 )  NSSEG.NSHPFT 
CONTINUE 

CHECK  IF  STABILIZATION  METHOD  AGREES  WITH  USE  CODE 
IF<MSTAB.GE.0.PND.MUST.GT.2.OR.MSTPB.EQ.0.PND.MUST.LT.3)GO  to 


013610 
013620 
013630 
— —  0i364e 
013650 
013660 
013670 
013680 
013690 
013700 
013710 
013720 

-  013730 

013740 

013750 

-  013760 

JOB  013770 
013780 
013790 
013800 
013810 
013820 
-  013830 

013840 

013850 

013860 

013870 

013880 

-  013890 

013900 

013910 

013920 

013930 

013940 

-  013950 

013960 

013970 

013980 

013990 

014000 

014010 

014020 

014030 

-  014040 

014050 

014060 

014070 

014080 

014090 

-  014100 

0  014110 

014120 
014130 
014140 

014150 

-  014160 

014170 
1298  014180 
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istop«i 

URITE<LO,8310)  NSSEG.NSHAFT 
18M  CONTINUE 

C  - 

C  CHECK  IF  STABILIZATION  METHOD  IS  INPUT 
IFtMSTAB.EO.0)  GO  TO  188 

C  - - - 

C  CHECK  IF  STABILIZATION  METHOD  IS  ACCEPTABLE 
GO  TO  ( 1300, 1362,1304 ),  MSTAB 

C  - - - - - - 

C  AIR  PRESSURE  --  CHECK  IF  SOIL  IS  A  GRAUEL 
1300  IF ( PERN. LT. 10, E- 10. AND . D10.GT. 2. )  GO  TO  1305 
IF< PERM.GT ,0.4)  GO  TO  130S 
C  CHECK  IF  SOIL  IS  A  CLAV 

IFCD10.LE. 0.005)  GO  TO  1308 
C  CHECK  IF  SHAFT  SEGMENT  ABOUE  WATER  TABLE 
IF ( ELUATR . LE . ELNPB  )  GO  TO  1308 
C  CHECK  IF  WATER  HEAD  LESS  THAN  115  FEET 
ELAUGMELNPT+ELNPB^a. 

IFtELUATR-ELAVG.LE.115. )  GO  TO  130S 
GO  TO  1305 

C  . — . 

C  DEUATERING  —  CHECK  IF  DEWATERING  IS  ALLOUED 
1308  IF C IUATER .EQ.0 )  GO  TO  1305 
C  CHECK  IF  SHAFT  SEGMENT  ABOVE  WATER  TABLE 
IFCELUATR.LE. ELNPB)  GO  TO  1305 

C  CHECK  IF  SOIL  IS  FINE  SAND  OR  COARSER  OR  IS  REASONABLV  PERMEABLE 
IF CPERM.LT .10.E-10.AND.D10.GT.0.08  5  GO  TO  1308 
IFtPERM.CT. 0.0006)  GO  TO  1308 
GO  TO  1305 

C  - - - - - - - - 

C  GROUND  INJECTIONS  —  CHECK  IF  SOIL  IS  NOT  CLAV 

1304  IFCD10.GT. 0.005!  GO  TO  1308 

C  . . . . 

C  STABILIZATION  METHOD  IS  NOT  ACCEPTABLE 

1305  MSTAC-8 

C  CHECK  IF  USE  CODE  -4 

IFCMUST.EQ.4)  GO  TO  1306 
WRITE (LO, 8315)  NSSEG.NSHAFT 
GO  TO  1310 

1306  ISTOP-i 

URITECL0.8380)  NSSEG.NSHAFT 
GO  TO  1310 

C  . - . 

C  STABILIZATION  METHOD  IS  ACCEPTABLE 

1308  MSTAC-1 
1310  B(I»28).nSTAC 

CHECK  FOR  CORRECT  GROUNDWATER  CODE 

188  INFL0WBCI.9) 

IF ( INFLOW .EQ . 0. OR. INFLOU.EQ . 1  )  GO  TO  189 

WRITE<  LO, 1047  )  NSSEG.NSHAFT 

ISTOP-1 

C  - - - - - - - 

189  IPS-NSHAFT 
GO  TO  90 

C  END  OF  SHAFT  SEGMENT  DATA 
130  CONTINUE 


014190  0000 
014800  0000 
014810  0000 
ei488s  0000 

014830  0000 
014840  0000 
01 4850  0000 
014860  0000 

014870  0000 
014880  0000 
014890  0000 
014300  0000 
014310  0000 
014380  0000 
014330  0000 
014340  0000 
014350  000e 
014360  0000 
014370  0000 
014380  0000 
014390  0000 
014400  0000 
014410  0000 
014480  000e 
014430  0000 
014440  0000 
014450  0000 
014460  0000 
014470  0000 
014480  0000 
014490  0000 
014500  0000 
014510  0000 
014580  0000 
014530  0000 
014540  0000 
014550  0000 
014560  0000 
014570  0000 
014580  0000 
014590  0000 
014600  0000 
014610  0000 
014680  0000 
014630  0000 
014640  0000 
014650  0000 
014660  0000 
014670  0000 
014680  0000 
014690  0000 
014700  0000 
014710  0000 
014780  0000 
014730  0000 
014740  0000 
014750  0000 
014760  0000 
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COSTUN  Listing  (Cont  in  tied) 


mtiiiitmimtimimiiiitimtiiiiiimiiiiitmiimtmmi 

NSS«I-1 

tmiiinminimtitummiimiiimtmiimiitmmmim 
READ  SHAFT  PROPERTIES 
initialize  shaft  data  ARRAV 

DO  138  I-l.NSMAX 
SHAFT ( 1,7 (--10.E30 
132  SHAFT <1,1 >  —  10. £30 

131  READ<LI,1025,ERR*4S0)  NSHAFT, BFS, ISHAPS, DDS. CDS, A1RTEM,CFL,CFE. 
lCFn.RCF, HOURS, DAVS 
IF ( NSHAFT .EO. 9999 )  GO  TO  139 
CHECK  FOR  PREUI0U5  USE  OF  SHAFT  NUMBER 

134  IF( SHAFT (NSHAFT,1 ! .GT .-10.E29 )  URITE ( 10, 1027 )  NSHAFT 
IF ( SHAFT ( NSWAFT, 1 J.GT.-10.E29)  ISTOP-l 

IF  SHAFT  IS  PORTAL, USER  CAN  OMIT  BFS.  SET  SI2E 
NPORT- SHAFT (NSHAFT, 23  J 
IFCNPORT.EQ.l )  BFS*28. 

SHAFT (NSHAFT, 5 )*DDS 
SHAFT(NSHAFT,6)*CDS 
SHAFT (NSHAFT, 7). BFS 
SHAFT (NSHAFT, 11 l-AIRTEM 
SHAFT(NSHAFT,12)*CFL 
SHAFT(NSHAFT,13).CFE 
SHAFT (NSHAFT, 14 J-CFM 
SHAFT(NSHAFT,1S)»RCF 
shaft(nshaft,  ie  mishaps 

SHAFT ( NSHAFT . 1 7  ) -HOURS 
SHAFT(NSHAFT,18)-DAVS 

CHECK  FOR  FINISHED  DIMENSION  BETWEEN  18  AND~48~FEET 
IF  < ISHAPS. CT .9. AND. BFS. LT . 18. .OR. ISHAPS .GT . 0 . AND. BFS .GT.40. ) 
1URITE(L0, 1074)  NSHAFT 

CHECK  FOR  PROPER  SHAFT  SHAPe'cODE  .  . 

IF(ISHAPS.GE.0. AND. ISHAPS. LE. 2)  GO  TO  135 
ISTOP-1 

URITE( LO, 2325 )  NSHAFT 

135  CONTINUE 

CHECK  FOR  SPECIFICATION  OF  DUMMV  SHAFT 
IF ( ISHAPS. EG .0  )  WRITE ( L0,2327 )  NSHAFT 

CHECK  IF  SHAPE  CODE  AGREES  WITH  INPUT  SHAFT  SIZE 

!^8PS. EG. 0. AND. ISHAPS. EG. 0. OR. BFS. GT.0. AND. ISHAPS. GT.0)  GO  TO  136 

IF (ISHAPS. EG. 8)  URITE(L0,2338)  NSHAFT 
...  3  W*ITE(L0,2332)  NSHAFT 

136  CONTINUE 

CHECK  IF  WORK  HOURS  PER  DAV  IN  PROPER  RANGE 


814-»70 

814760 

014790 

8i48e0 

014810 

014820 

014830 

014840 

014850 

014860 

014870 

014880 

814890 

014908 

014910 

014920 

014930 

014940 

01 4950 

014960 

014978 

014980 

014990 

815000 

015010 

015020 

015030 

015040 

015050 

01S060 

015070 

015080 

015090 

015100 

015110 

015120 

015130 

015140 

015150 

015160 

015170 

015180 

015190 

015200 

015210 

015220 

015230 

015240 

015250 

015260 

015270 

015280 

015290 

015300 

01S310 

015320 

015330 

015340 
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IF < HOURS . QE . 9 • • AND . HOURS . LE . 24 . )  00  TO  13? 

ISTOP-1 

WRITE (10,2335)  NSHAFT 
137  CONTINUE 


CHECK  IF  WORK  DAYS  PER  UEEK  IN  PROPER  RANGE 
IF (DAVS.GE. 4. .AND. DAYS . LE .7. . OR . BAYS . EG . 0 .  !  CO  TO  138 
I STOP *1 

URITECLO, 2340 )  NSHAFT 
138  CONTINUE 

SHAFT ( NSHAFT, 1 )-0. 

CO  TO  131 

END  OF  SHAFT  PROPERTIES  DATA 
133  CONTINUE 

mtiitimmimmimimiamimmiimtimmnitiutm 


WAKE  SURE  THAT  AU  TUNNEl  SEGMENTS  HAVE  REACHES  DEFINED  FOR  THEN 
DO  200  1*1, NTS 
NTSEG-At 1,1) 

NREACH- A  1 1,4 ) 

IF(TRDATA( NREACH, 1  1 . GT.0 .  )  GO  TO  200 
ISTOP-1 

URITECLO, 1200  )  NTSEG, NREACH 
200  CONTINUE 

CHECK  THAT  EUEfiV  REACH  NUMBER  ASSIGNED  HAS  AT  LEAST  ONE  TUNNEL 
SEGMENT  REFERRING  TO  IT 
DO  250  1*1, NTRMAX 

IF(TRDATACI,1 J.LT.-10.E29)  GO  TO  250 

NREACH- I 

JJ-0 

DO  22S  J*1,NTS 
IFCNREACH.EQ.au, 4))  JJ-1 
225  CONTINUE 

IFCJJ.EQ.l!  GO  TO  250 
ISTOP-1 

URITECLO, 1203 )  NREACH 
250  CONTINUE 

CHECK  TO  MAKE  SURE  ALL  SHAFT  SEGMENTS  HAUE  SHAFTS  DEFINED  FOR  ThEM 
DO  300  I-l ,NSS 
NSSEC-BC 1,2) 

NSHAFT. BC I, 1 ) 

IF ( SHAFT ( NSHAFT, 7 ) . GT . -1 0 . E29  )  GO  TO  260 
ISTOP-1 

URITECLO, 1201  )  NSSEG. NSHAFT 
360  CONTINUE 

CHECK  FOR  PORTAL  OR  DUMMY  SHAFT  "  . . 

NPORT-SHAFT  C  NSHAFT,  23 ) 

I SNAPS • SHAFT  C  NSHAFT , 1 6 ) 

IFCNPORT.EQ.1.OR.ISHAPS.EG.0)  GO  to  300 

CHECK  IF  SHAPE  CODE  AGREES  WITH  SHAFt’tvPE* 

NSSTVP-BCI.IS) 


315350 

315363 

015373 

015380 

0153S0 

015400 

015410 

015420 

015430 

015440 

015450 

015460 

015470 

015480 

015490 

015500 

015510 

015S20 

oissae 

015540 

015550 

015560 

015570 

015580 

015590 

0l560e 

015610 

015620 

015630 

015640 

015650 

015660 

015670 

015680 

015690 

015700 

015710 

01S720 

015730 

015740 

015750 

015760 

015770 

015780 

015790 

015800 

015810 

015820 

015830 

015840 

015850 

015860 

015870 

015880 

015890 

015900  < 

015910  I 

015920  ( 
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COSTIJN  Listing  (Coat  inued) 


IF(NSSTYP.GT.1.0R.ISHAPS.LT.2)  00  TO  270 
ISTOP'l 

URITEtLO. 2345)  NSSEG, NSHAFT 
270  CONTINUE 


CAST  IRON  SHAFT  SUPPORT  -  CIRCULAR  SHAFTS  ONLY 

if Mishaps ?£o?i .or. isuppt.ne . t .or .nsstvp. ne . 2 )  go  to  288 

IST0P-1 

URITEtLO, 2350)  NSSEG, NSHAFT 
288  CONTINUE 

If’the'shaFT  SEGMENT  IS  MOLED,  ITS  SHAPE  MUST  BE  CIRCULAR 
MEX»B( 1,7 ) 

IF (MEX.NE .2. AND.MEx. NE . 3 )  GO  TO  380 
IF( ISHAPS.EQ. 1 )  GO  TO  380 
I STOP *1 

URITEtLO, 2355 )  NSSEG.NSHAFT 
300  CONTINUE 

CHECK  THAT  EUERV  SHAFT  NUMBER  ASSIGNED  HAS  AT  LEAST  ONE  SHAFT 
SEGMENT  REFERRING  TO  IT 
DO  350  1*1, NSMAX 

IF( SHAFT! 1,1  ).LT . -10.E29 )  GO  TO  350 

NSHAFT- I 

JJ-0 

DO  325  J*1,NSS 
IFtNSHAFT .EO.Bt J, 1  )  )  JJ-1 
325  CONTINUE 

IFtJJ.EO.l)  GO  TO  350 
1ST0P-1 

URITEtLO, 1204 )  NSHAFT 
350  CONTINUE 


0000 

0000 

0000 

0000 

0000 

0000 


016030 

016040 

016050 

016060 

016078 

016080 

016098 

016100 

016110 

016120 

016130 

016140 

016150 

016160 

016170 

016180 

016190 

016200 

016210 

016220 

016230 

016240 

016250 


. .  016260 

CHECK  ALL  REACHES  TO  MAKE  SURE  THAT  THERE  IS  AN  EXIT  SHAFT  DEFINED  016270 


DO  400  I-l.NTRMAX 

IF (TRDATAt 1 ,1 )  .LT . -10.E29 )  GO  TO  400 
NSHAFT-TRDATACI.l > 

IF (SHAFT (NSHAFT, 7  ).GT. -10. E29)  GO  TO 
ISTOP-1 

URITEtLO, 1202)  I, NSHAFT 

CONTINUE 

400 

016280 

016290 

016300 

016310 

016320 

016330 

016340 

CHECK  FOR  ANY  STOPS  FOUND 

016360 

016370 

CONTINUE 

016380 

IF! ISTOP.EQ . 0 )  GO  TO  580 

016390 

FATAL  ERRORS  DETECTED  UHICH  MAY  MAKE 

further  calculations 

016400 

MEANINGLESS.  TERMINATE  RUN  AND  GO  TO 

NEXT  SYSTEM  DATA  DECK 

016410 

URITEtLO, 1011  ) 

016420 

CALL  NEXSETtLO.LI > 

016430 

RETURN 

016440 

URITE  (LC.1504) 

0164S0 

ISTOP  •  1 

016460 

GO  TO  425 

016470 

IF  NO  FATAL  ERRORS, LIST  NODAL  POINT  1 

DATA  IF  REQUESTED 

016480 

IF< LIST < 1 ) .EG. 1 )  RETURN 

016490 

URITEtLO. 1003) 

016500 

815938 
015940 
015958 
015960 
015970 
015980 
015990 
016000 
016010  0000 
016020  0000 
0000 
0000 
0000 
oe00 
0e08 
eeee 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 

0000 

0000 
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C 

C 


DO  604  I-l.NPMAX  .  „  „  ,  , 

644  1F( CNP(I,2).GT.-10.E29)  UfiJTEf L0, I0e4  )  I,CNP(I,2) 

RETURN 

1444  FORNAT!1X.I4,5X,F10.0) 

1441  F ORMAT!/,'  FATAL  ERROR.  NODAL  POINT '.IS,'  DUST  BE  CHANCED  TC  A 
INUMBER  IN  THE  RANGE  FROM  1  TO  ',14) 

1442  F0RMAT(4l4,FS .0, I3.F7.0. F5.0,I3,F4.0,F7.0,2I3»F5.0) 

1443  FORMAT! ///,  10X.25H  NODAL  POINT  E LEGATION  // > 

1444  FORMAT! 10X, I7.8X.F9.2  ) 

1065  FORMAT! 3F4.0.F8.0,F4.0. FT. 0,F5.0,F3.0,F5.0.F?.0.F3.0,F6.0,F4.0.F2. 

10.F6.0.F3.0.FS.0) 

1046  FORMAT C4X,2F4.O,F8.0,F4.O,F7.O,F5.O,F3.0,FS.0,F?.O,F3.0.F6.0,F4.0, 
1F2.0,F6.0.F2.0,FI.O.FS.O> 

1007  FORMAT(4F4.0,8X,F8.0,F4.0,F3.0,F6.0.2F3.0,F6.0.F2.0,F6.O,F3.0, 
1F5.0) 

1008  FORMAT tl6X,2F8.0,F4.0,F3.0,F6.0,2F3.0,F8.0,F6.0,F2.0,rt.0,F5.0) 
1011  FORMAT (///,1X,131( '  * ' >,/2SX, 'PROGRAM  STOPPED  BECAUSE  OF  ERRORS  I 

IN  SUBROUTINE  INPUT  ' ./IX. 131(1H*  )  ) 

1013  FORMAT*/,'  FATAL  ERROR.  NODAL  POINT'. IS,'  IS  InPuTED  ON  TuO  SEP 
1ARATE  NODAL  POINT  CARDS' ) 

1015  FORMAT!/,'  FATAL  ERROR.  SEGMENT'  15,'  IN  REACH', IS.'  IS  OUT  OF 
1SE0UENCE, CHECK  DATA  CARDS  ARRANGEMENT  OR  FOR  CORRECT  NODAL  POINT 
2S' ) 

1016  FORMAT!/.'  FATAL  ERROR,  ALIGNMENT  INCLUDES  MORE  THAN  THE  ',14,- 
1  TUNNEL  SEGMENTS  ALLOWED') 

1017  FORMAT!/  '  FATAL  ERROR.  ALIGNMENT  INCLUDES  MORE  THAN  THE  ,14,' 

1  SHAFT  SEGMENTS  ALLOWED') 

1020  FORMAT! 214  ,F6. 0.213  ,F5 . 0. F4.0. 13,2F5 . 0, 13.25X, 1=  ) 

1021  FORMAT!/.'  FATAL  ERROR,  REACH  NUMBER'. IS,  '  SHOULD  Bi  CHANCED  TO 
1  ONE  IN  THE  RANGE  OF  1  TO  ',IS) 

1022  FORMAT!/.'  FATAL  ERROR,  SEGMENT '. IS. '  REFERS  TO  REACH', IS.'  Bu 
IT  THIS  REACH  NUMBER  HAS  BEEN  PREVIOUSLY  ASSIGNED') 

1023  FORMAT!/.'  FATAL  ERROR,  SEGMENT ', 15, '  REFERS  TO  SHAFT', IS.'  Bu 
IT  THIS  SHAFT  NUMBER  HAS  BEEN  PREUIOUSLV  ASSIGNED') 

1025  FORMAT! 14. F6.0.I3,F8.0,F7.0,F4.0,4F6.0,F5.0,F4.0) 

1026  FORMAT!/,-  FATAL  ERROR,  DATA  FOR  REACH', IS,'  hAUE  BEEN  SUPPLIED 
1  ON  TUO  SEPARATE  REACH  CARDS') 

1027  FORMAT!/  ■  FATAL  ERROR,  DA’A  FOR  SHAFT, is,'  hauE  BEEN  SUPPLIED 
1  ON  TUO  SEPARATE  SHAFT  CARDS' ) 

1029  FORMAT!/,'  FATAL  ERROR,  EXCAVATION  METHOD  IN  SEGMENT ', IS, '  IN  SH 
lAFT'.is,  LAS  not  SPECIFIED  Bv  USING  CODE  ZEROiCR  BLAn< > , 1 , 2, 3, 4 ' : 

1030  FORMAT!/,'  FATpL  error,  EXCAVATION  METHOD  IN  SEGMENT •, 15, '  IN  RE 
1ACH ' ,  15.'  JAS  NOT  SPECIFIED  Bv  USING  CODE  1 ,2, 3. 4, 5, 6, OR  7') 

1031  FORMAT!/, '  fatal  ERROR,  ONE  OR  BOTH  NODAL  POINTS  IN  SEGMENT '. 15. ' 

1  IN  REACH'. IS.'  JERE  NOT  LISTED  WITH  OTHER  NODAL  POINT  DATA  CARD 


2S  ) 

1034  FORMAT!/,'  fatal  ERROR,  ShAFT', 15,'  LISTED  UITH  SHAFT  SEGMENT', 
IIS,'  IS  NO'"  numbered  in  "HE  Range  OF  1  TO  -.15) 

1040  FORMAT!/,'  FATAL  ERROR,  CIRCULAR  SHAPE  LAS  NOT  SPECIFIED  FOR  MOL 
ICC  EXCAVATION  TN  SEGMENT ■, 15. •  ;n  REACH', 15) 

1041  FORMAT!/  -  FATAL  ERROR,  MUCK  tRR(sspORT  hETHOD  IN  REACH', 15,'  UA 
IS  NOT  SPECIFIED  WITH  A  CODE  OF  ZEAOCOR  BLANK >. 1 .2, 3, OR  4') 

1042  FORMAT!/  '  FATAL  ERROR,  TUNNEL  SHAPE  IN  REACH', 15,'  UAS  NOT  SPE 
1CIFIED  WITH  A  CODE  OF  ZERO (  OR  BLANK  >.l  ,2, OR  3"> 

1043  FORMAT!/  '  FATAL  ERROR.  LINING  TYPE  IN  SEGMENT ', 15, '  IN  REACH', IS 
1,'  UAS  NOT  SPECIFIED  WITH  A  CODE  OF  ZERO! OR  BLANK  ), 1 ,2, OR  3') 


016S10 

016520 

016530 

016S40 

016550 

016S60 

016570 

016SB0 

016S80 

016600 

016610 

016620 

016630 

016640 

016650 

016660 

016670 

016680 

0166S0 

016700 

016710 

016720 

016730 

0167*0 

016745 

016750 

016760 

016770 

016780 

016790 

016800 

016810 

016820 

016830 

016840 

016850 

016860 

016870 

016680 

016890 

016500 

0i69ie 

016920 

016930 

016940 

016950 

016960 

016970 

016980 

0IP990 

0i*;fc00 

017010 

017020 

017030 

017040 

017050 

017060 

017070 


(Continued) 


A50 


i 


COSTUN  Listing  (Continued) 


1045  FORMATC/,'  FATAL  ERROR,  A  LINING  THICKNESS  IS  SPECIFIED  FOR  SEG 
1NENT', 14, '  IN  REACH  ' .  14,  ' ,  BUT  NO  LINING  UAS  SPECIFIED  '  : 

1046  FORMATC/, '  FATAL  ERROR.  A  LINING  THICKNESS  IS  SPECIFIED  FOR  SEG 
1H£NT',I4,'  IN  SHAFT'  14. '.BUT  NC  LINING  UAS  SPECIFIED') 

1047  FORMATC/,'  FATAL  ERROR.  GROUNDUATER  INFLOU  IN  SEGMENT ', IS, '  IN  S 
lHAFT'.lS, '  UAS  NOT  SPECIFIED  WITH  A  CODE  OF  ZEROCOR  BLANK)  OR  1 '  : 

1048  FORMATC/,  '  FATAL  ERROR.  LINING  TYPE  IN  SEGMENT ',  IS.  '  IN  SHAFT', IS 
1.'  UAS  NOT  SPECIFIED  UlTH  A  CODE  OF  ZEROCOR  BLANK ). 1.2. OR  3') 

loss  Format (/, -  fatal  error,  shaft-. is. •  is  not  numbered  in  the  rang 

IE  OF  1  TO  '.IS) 

1060  FORMATS. '  tttt  UARNING  *»•*  ROCK  STRENGTH  IS  LESS  THAN  500  PSI 
1  IN  SEGMENT' , IS, '  IN  REACH'. 15,'  GETTING  CLOSE  TO  SOFT  GROUND', 
25X.14C1HX)  ) 

1062  FORMATS,'  FATAL  ERROR,  ROD  IN  SEGMENT ',  IS, '  IN  REACH',  IS, 

1'  IS  NOT  A  NUMBER  FROM  0  TO  100' ) 

1064  FORMATC/,'  **«  UARNING  XI**  TUNNEL  SIZE  IN  REACH', IS,'  IS  NOT 
1  UITHIN  THE  RANGE  OF  10  TO  40  FEET '  5X, 41 ( 1HI  )  1 

1065  FORMATS, '  FATAL  ERROR,  ADUANCE  RATE  IN  SEGMENT ',  IS, '  IN  REACH', 

1  IS,'  IS  LESS  THAN  0  FT/DAY '  ) 

1070  FORMAT <  /,  '  ****  UARNING  ****  ROCK  STRENGTH  IS  LESS  THAN  S00  PSI 
1  IN  SEGMENT', IS, '  IN  SHAFT'. IS,'  GETTING  CLOSE  TO  SOFT  GROUND', 
2SX.14C1H*)) 

1072  FORMAT (/,'  FATAL  ERROR,  RQD  IN  SEGMENT ', IS. '  IN  SHAFT ',25, 

1  'IS  HOT  A  NUMBER  FROM  0  TO  100') 

1074  FORMATC/  '  ***X  UARNING  XXX*  SHAFT  SIZE  IN  SHAFT', IS,'  IS  NOT 
1  UITHIN  THE  RANGE  OF  10  TO  40  FEET ' ,5X, 41 C 1H*  )  > 

1075  FORMATC/.'  FATAL  ERROR,  ADUANCE  RATE  IN  SEGMENT IS, '  IN  SHAFT', 

1  15,'  IS  LESS  THAN  0  FT/DAY') 

1115  FORMATC/,'  FATAL  ERROR,  SEGMENT' , IS, '  IN  SHAFT'  IS.'  IS  OUT  OF 
1SEQUENCE. CHECK  DATA  CARDS  ARRANGEMENT  OR  FOR  CORRECT  NODAL  POINT 
2S'  ) 

1131  FORMATC/,'  FATAL  ERROR.  ONE  OR  BOTH  NODAL  POINTS  IN  SEGMENT', 15, 
1'  IN  SHAFT', IS,'  UERE  HOT  LISTED  UlTH  OTHER  NODAL  POINT  DATA  CARD 
2S'  ) 

1200  FORMATC/,'  FATAL  ERROR.  TUNNEL  SEGMENT' , IS. '  REFERS  TO  REACH', IS 
1,'  BUT  NO  SUCH  REACH  HAS  BEEN  INPUTED') 

1201  FORMATC/,'  FATAL  ERROR,  SHAFT  SEGMENT '. 15, '  REFERS  TO  SHAFT ',15 
1,'  BUT  NO  SUCH  SHAFT  HAS  BEEN  INPUTED') 

1202  FORMATC/,'  FATAL  ERROR.  REACH', 15.'  REFERS  TO  EXIT  SHAFT', IS, 

1  '  BUT  NO  SUCH  SHAFT  HAS  BEEN  INPUTED') 

1203  FORMATC/,'  FATAL  ERROR,  TUNNEL  REACH', 15,'  HAS  BEEN  ASSIGNED, Bu 
IT  HO  TUNNEL  SEGMENTS  REFER  TO  IT') 

1204  FORMATC/,'  FATAL  ERROR,  SHAFT', IS,'  HAS  BEEN  ASSIGNED, BUT  NO  SH 
l AFT  SEGMENTS  REFER  TO  IT') 

1500  FORMATC/,'  FATAL  ERROR, NO  SEPARATOR  CARD  AFTER  NODAL  POINT  DATA') 

1501  FORMATC/,'  FATAL  ERROR,  NO  SEPARATOR  CARD  AFTER  TUNNEL  SEGMENT  D 
1ATA',/25X, OR  ) 

1502  FORMATC/,'  FATAL  ERROR,  NO  SEPARATOR  CARD  AFTER  TUNNEL  REACH  DAT 
1A'  ) 

1503  FORMATC/,'  FATAL  ERROR,  CHECK  FOR  MISSING  SEPARATOR  CARD  AFTER  S 
1HAFT  SEGMENT  DATA ' , /2SX. ' OR  --' ) 

1504  FORMATC/,'  FATAL  ERROR,  CHECK  FOR  MISSING  SEPARATOR  CARD  AFTER  S 
l HAFT  DATA' ) 

2000  FORMATC/,'  FATAL  ERROR.  TUNNEL  TYPE  IN  SEGMENT', 15.  '  IN  REACH', 
115,'  UAS  NOT  SPECIFIED  BY  USING  CODE  1.2.0R  3') 

2005  FORMATC/,'  FATAL  ERROR,  EXCAVATION  METHOD  IN  SEGMENT ', 15. '  IN  RE 
1ACH'  IS.'  DOES  NOT  MATCH  TUNNEL  TYPE  SPECIFIED') 

2010  FORMATC/,'  FATAL  ERROR,  LINING  TYPE  IN  SEGMENT' . 25. '  IN  REACH', 


(Continued) 


ei’ese 

0i"»e90 

017100 

017110 

e:-’i20 

017130 

017140 

017150 

017160 

017170 

017180 

017190 

017200 

017210 

017220 

017230 

017240 

017250 

017260 

017270 

017230 

0172i’0 

017300 

017310 

017320 

017330 

017340 

017350 

017360 

017370 

017375 

017380 

017390 

017400 

017410 

017420 

017430 

017440 

017450 

017460 

017470 

017480 

017490 

017500 

017510 

017520 

017530 

017540 

017550 

017560 

017570 

017580 

017590 

017600 

017610 

017620 

017630 

017640 


A51 


COS  Il'N  I  isl  in;’  (('nil!  i  1 1  iu'd  ) 


US, '  DOES  NOT  NATCH  TUNNEL  TvPE  SPECIFIED '  )  017652  0020 

2«15  FOftMATi/  '  FATAL  ERROR,  UATERTIGHT  LINING  REQUIREMENT  In  SEGMENt  @17260  0000 
IN  REACH' , IS, '  UAS  NOT  SPECIFIED  Bv  USING  CODE  ZEROcOR  BLA  017670  0000 
2NK )  OR  1 ' >  017680  0000 

2017  FORMAT!/,'  ****  REMINDER  I***  ALL  CuT  AND  COuER  TUNNEL  SEGI'EN  0176S0  0000 

ITS  ARE  DESIGNED  AS  UATERTICHT  —  INPUT  IGNORED  IN  SEGMENT '.IS,  017700  0000 

2'  IN  REACH' -I5/20X,  AND  UATERTIGHT  DESIGN  USED')  017710  0000 

2020  FORMAT!/  '  FATAL  ERROR,  NO  LINING  OR  SUPPORT  UAS  SPECIFIED  IN  SE  017?2e  0000 
1GMENT ' , IS, '  IN  REACH', IS,'  BUT  A  jaTERtIGhT  Tunnel  UAS  SPECIFIED')  017730  0000 
2025  FORMAT!/,'  1*1*  UARNING  ****  GROUND  UATER  ELEuAT I  ON  IN  SEGMENT'  017740  0000 

1. 15,  '  IN  REACH', IS,'  IS  EITHER  ZERO  OR  BLANK  -  ELEuATIOn  ZERO  Ul  @17750  0000 

2LL  BE  USED  IN',/'  COMPUTATIONS ', 5x , 1 1 4 < 1H*  )  )  0l7">6@  0000 

2030  FORMAT!/,'  FATAL  ERROR,  ROD  IN  SEGMENT ', IS,  '  IN  REACH', IS,'  IS  017770  0000 

1LESS  THAN  2S  IN  A  ROCK  TUNNEL.  USE  SOFT  GROUND  OR  CUT  AND  COUER'  )  017780  0000 

2035  FORMAT!/,'  ****  WARNING  ****  RQD  IN  SEGMENT ', IS. '  IN  REACH', IS,  21719C  2200 

1'  IS  GREATER  THAN  25  FOR  A  SOFT  GROUND  TUNNEL '. 5X, 29 : 1H*  ) )  017800  0000 

2040  FORMAT!/.'  FATAL  ERROR,  SURFACE  NODAL  POINTS  ABCuE  SEGMENT ',15,  017810  0000 

1'  IN  REACH',  IS,'  ARE  OUT  OF  SEQUENCE'!  01',820  0000 

2045  FORMAT!/,'  FATAL  ERROR,  ONE  OR  BOTh  SURFACE  NODAL  POINTS  ABCuE  S  017830  2800 

1EGMENT'  IS  '  IN  REACH', IS,'  uERE  NOT  LISTED  UITh  OTHER  NODAL  POIn  @17840  0000 

IT  DATA  CARDS')  017850  0000 

2050  FORMAT!/,'  FATAL  ERROR, SURFACE  NODAL  POINT  ELEUATIONS  IN  SEGMENT  -  017860  0000 

1.15, '  IN  REACH', IS,'  ARE  BELOU  TJNNEL  ELEuAtION-;  017870  0008 

2055  FORMAT!/,'  FATAL  ERROR,  EFFECTIUE  GRAIN  SIZE  IN  SEGMENT ', 15. '  IN  017880  2000 

1  REACH', 15.'  UAS  NOT  INPUT')  0178S0  2000 

2060  FORMAT!/,'  FATAL  ERROR,  SOIL  STRENGTH  (PhI  AND/OR  COHESION;  IN  S  017900  0000 

1EGMENT' , IS,  IN  REACH', IS,'  UAS  NOT  SPECIFIED')  017910  0000 

2061  FORMAT!/,'  ****  UARNING  ****  POSSIBLE  ERROR  IN  PERMEABILITY  IN  @17920  0000 

1  SEGMENT', is, '  IN  REACH', IS,'  -  INPUT  IS  GREATER  THAN  10  CM/SEC',  017930  @000 
25X, 12! 1H*  )  )  217940  0000 

2062  FORMAT!/,'  ****  UARNING  ****  FRICTION  ANGLE  IN  SEGMENT ', 15,  '  I  0179S0  0000 

IN  REACH', IS, '  IS  GREATER  THAN  45  DEGREES' ,SX,35( 1H*  )  )  017960  0000 

2063  FORMAT!/,'  FATAL  ERROR,  FRICTION  ANGLE  IN  SEGMENT '. 15,  '  IN  REACH'  017970  0000 

1,15,'  IS  GREATER  THAN  100. CHECK  FOR  NUMBER  SHIFTED  ON  DATA  CARD')  017980  0000 

2064  FORMAT!/.'  FATAL  ERROR,  UNIT  uEIGHT  OF  SOIL  IN  SEGMENT ', IS,  '  IN  017990  0000 

1REACH' , IS, '  IS  TOO  LARGE  FOR  SOIL  OR  POOR  ROCK')  018000  0000 

2065  FORMAT!/,'  RATAL  ERROR,  DEWATERING  REQUIREMENT  IN  SEGMENT', IS,  018010  0000 

1'  IN  REACH', 15,'  UAS  NOT  SPECIFIED  BV  USING  CODE  ZERO(OR  BLANK)  018020  0000 
20R  1' )  018030  0000 

2070  FORMAT!/,'  ****  UARNING  ****  IMPERVIOUS  LAVER  ELEUATION  IN  SEC  018040  0000 
1MENT ' , 15,  '  IN  REACH'. IS,'  IS  EITHER  ZERO  OR  BLANK  -  ELEVATION  ZER  2180S0  0000 
20  UILL  BE  USED'/'  IN  COMPUTAT IONS ' ,5X, 1 11 ! 1H*  ) )  018060  @000 

2072  FORMAT!/, '  FATAL  ERROR,  IMPERVIOUS  LAYER  ELEvATJON  IN  SEGMENT',  018070  0000 

115,'  IN  REACH', 15,'  IS  ABOVE  AVERAGE  SURFACE  ELEVATION')  018080  0000 

2073  FORMAT!/,'  FATAL  ERROR,  IMPERVIOUS  LAVER  ELEVATION  IN  SEGMENT',  018090  0000 

115,'  IN  REACH',  15.'  IS  AT  THE  SURFACE  and  SOIL  GRAIN  SIZE  INPUT  018100  0000 
2EXCEEDS0 . 005 '  )  018110  0006 

2075  FORMAT!/,'  FA’-AL  ERROR,  SUPPORT  TYPE  IN  SOFT  GROUND  SEGMENT',  018120  0020 

115,'  IN  REACH', IS.'  UAS  NOT  SPECIFIED  Bv  CODE  1.2, 3, 4, 5, OR  6')  018130  0000 

2080  FORMAT!/,-  FATAL  ERROR,  SUPPORT  type  IN  SEGMENT ', 15, '  IN  REACH',  018140  0000 

IIS,'  DOES  NOT  MATCH  TUNNEL  TVPE  SPECIFIED')  018150  0000 

2085  FORMAT!/,'  FATAL  ERROR.  LINING  Type  IN  SEGMENT -, IS. '  IN  REACH  ,  018160  0000 

115,'  DOES  NOT  MATCH  SUPPORT  TYPE  SPECIFIED')  018170  0000 

2090  FORMAT!/  '  ****  UARNING  ****  ROCK  ELEVATION  IN  SEGMENT', 15,  018180  0000 

1'  IN  REACH', IS,'  IS  EITHER  ZERO  OR  BLANK  -  ELEVATION  ZERO  UILL  B  018190  0000 
2E  USED  IN'/'  COMPUTATIONS', 5X,114(1H*>)  018200  0000 

2092  FORMAT!/,'  FATAL  ERROR,  ROCK  ELEVATION  IN  SEGMENT' , 15,  '  IN  REACH'  018210  0000 

1,15,'  IS  ABOVE  AVERAGE  SURFACE  ELEVATION')  018220  0000 


COSTl'N  l.istiii)-,  ( Con  t  i  nui'd ) 


2494  FORMAT!/,  ‘  ttxt  UARNING  **I»  CUT  AND  COVER  BOX  IN  SEGMENT  • ,  IS.  013230 
i -  IN  REACH' -IS, '  EXCEEDS  190  FEET' ,5x.42! 1H*  ) )  813240 

2095  FORMAT!/,'  FATAL  ERROR,  OPEN  CuT  BRACING  IN  SEGMENT ', IS, ■  IN  REA  0182E0 

1CH' , IS, '  UAS  NOT  SPECIFIED  Bv  USING  CCDE  ZEROiOR  BLANK  >.  1,2.  OR  3’.  018268 

2100  FORMAT! /. '  FATAL  ERROR,  BRACING  CODE  FOR  VERTICAL  OPEN  CUT  IN  SE  018270 

1GMENT ' , 15, '  IN  REACH', IS,'  UAS  NCT  SPECIFIED  Bv  USING  CODE  1.2, OR  018280 
13')  018290 

2105  FORMAT!/,'  FATAL  ERROR,  DECKING  CODE  IN  SEGMENT IS, -  IN  REACH',  018300 

115,'  UAS  NOT  SPECIFIED  Bv  USING  CODE  2ER0(0R  BLANK)  OR  1 '  )  018318 

2115  FORMAT!/,'  FATAL  ERROR,  STABILITV  NUMBER  IN  SEGMENT ', IS. '  IN  REA  018328 
ICH',15,'  IS  TOO  HIGH,  EXCAVATION  is  IMPOSSIBLE')  018330 

2120  FORMAT!/,'  FATAL  ERROR,  STABILIZATION  METHOD  IN  SEGMENT'  IS.'  IN  018340 

1  REACH', 15.'  UAS  NOT  SPECIFIED  Bv  CODE  2ER010R  BLANK  ), 1.2, OR  3')  018350 

2125  FORMAT!/  '  fatal  ERROR,  STABILI2ATI0N  USE  CODE  IN  SEGMENT', IS,  018360 

1'  IN  REACH'  IS.'  UAS  NOT  SPECIFIED  Bv  CODE  1,2.3,09  4')  018370 

2130  FORMAT!/,'  FATAL  ERROR,  AIR  PRESSURE  In  SEGMENT', IS,  IN  REACH',  018380 

115,'  UAS  NOT  SPECIFIED  uhEN  StABILITV  NuMBER  UAS  INPuT  AND  AIR  P  018390 
2RE5SURE'/'  STABILI2ATI0N  SPECIFIED' )  018400 

2135  FORMAT!/,'  FATAL  ERROR,  STABILITY  NUMBER  UAS  SPECICIED  IN  SEGMEN  018410 
IT', IS,'  IN  REACH', 15,',  BUT  STABILIZATION  USE  CODE  DOES  NE  4')  018420 

2137  FORMAT!/, '  FATAL  ERROR,  AIR  PRESSURE  IS  SPECIFIED  IN  SEGMENT', IS,  018430 

1'  IN  REACH', IS, '  BUT  STABILIZATION  METHOD  NOT  COMPRESSED  AIR')  018440 

2140  FORMAT!/,'  FATAL  ERROR,  STABILIZATION  USE  CODE  IN  SEGMENT', 15,  018450 

1'  IN  REACH', 15.'  DOES  NOT  AGREE  UITh  METHOD  SPECIFIED')  018460 

2145  FORMAT!/,  *»**  UARNING  ttxt  STABILIZATION  METHOD  IN  SEGMENT ' ,  018470 

IIS,'  IN  REACH', IS. '  IS  NOT  ACCEPTABLE', SX,39(1H*))  018480 

2147  FORMAT!/,'  FATAL  ERROR,  INPUT  IN  SEGMENT ', 15, '  IN  REACH, 15,  018490 

1'  REQUIRES  USE  CF  AN  UNACCEPTABLE  STABILIZATION  METHOD')  018500 

2150  FORMAT!/,'  FATAL  ERROR,  TUNNEL  SIZE  IN  REACH', 15,'  INDICATES  CU  018510 

IT  AND  COVER  SECTION.  BUT  SHAPE  CODE  IS  NOT  ZERO')  018520 

2151  FORMAT!/, ■  FATAL  ERROR,  TUNNEL  SHAPE  IN  REACH', IS,'  INDICATES  C  018S30 

1UT  AND  COuER  SECTION,  BUT  SIZE  IS  SPECIFIED  IN  URONG  COLUMN')  018540 

2152  FORMAT!/,'  FATAL  ERROR,  SHAPE  IN  REACH', 15, '  INDICATES  CUT  AND  018550 

1C0UER,  BUT  A  MUCK  TRANSPORT  METHOD  UAS  SPECIFIED')  018560 

2153  FORMAT!/,'  FATAL  ERROR,  TUNNEL  REACH', 15,'  IS  NOT  CUT  AND  COUER  018S70 

1,  BUT  NO  MUCK  TRANSPORT  METHOD  UAS  SPECIFIED')  018580 

2155  FORMAT!/,'  FATAL  ERROR,  UORK  HOURS  IN  REACH', 15, '  UERE  NOT  SPEC  018590 

1IFIED  BV  A  NUMBER  FROM0  TO  24')  018600 

2160  FORMAT!/, ‘  FATAL  ERROR,  UORK  DAVS  IN  REACH', IS,'  UERE  NOT  SPECI  018610 

1FIED  BV  A  NUMBER  from  4  TO  7' :  018620 

2165  FORMAT!/,'  FATAL  ERROR,  ONE  OR  BOTH  BOX  DIMENSIONS  IN  REACH', 15,  018630 

1'  UERE  NOT  INPUT'  )  018640 

2170  FORMAT!/,'  ****  UARNING  ****  TOTAL  CLEAR  BOX  WIDTH  IN  REACH',  018650 
115,'  EXCEEDS  40  FEET',5X,55!1HX)  )  018660 

2175  FORMAT!/,'  FATAL  ERROR,  OPEN  CUT  IS  SPECIFIED  IN  REACH', 15,  018670 

1'  AND  NUMBER  OF  BOX  UNITS  NOT  SPECIFIED  FOR  A  SINGLE  LEVEL  BOX')  018680 
2180  FORMAT!/,'  ****  UARNING  ****  BOX  HEIGHT  IN  REACH', 15,'  IS  GRE  018690 

1ATER  THAN  20  FEET  FOR  A  SINGLE  LEVEL  BOX ' - 5X, 35! 1HX  )  )  018700 

2185  FORMAT!/,'  tttx  UARNING  ****  TOTAL  CLEAR  BOX  HEIGHT  In  REACH',  018710 

IIS,'  IS  GREATER  THAN  40  FEET  FOR  A  DOUBLE  BOX ' ,SX, 39! 1H* ) )  018720 

2190  FORMAT!/,'  ****  UARNING  ****  DEUATERING  MAY  BE  USED  AS  A  STABI  018730 

11IZATI0N  METHOD  IN  SEGMENT', 15, '  IN  REACH', IS,'  AND  IMPERVIOUS  LA  018740 
2VER  IS'/20X, '  INCORRECTLY  PLACED  ABOUE  THE  TUNNEL.  ELIMP  UILL  BE  0187S0 
3ASSUMED  AT  TUNNEL  INVERT.')  018760 

2195  FORMAT!/  '  FATAL  ERROR,  COMPRESSED  AIR  UAS  REOUIRED  IN  SEGMENT',  018770 

IIS,'  IN  REACH', IS,'  AND  TRUCK  MUCK  TRANSPORT  SPECIFIED')  018780 

2200  FORMAT!/,'  FATAL  ERROR,  CAST  IRON  TUNNEL  SUPPORT  UAS  SPECIFIED  I  018790 

IN  SEGMENT', IS,'  IN  REACH', 15,',  BUT  CIRCULAR  SHAPE  NOT  SPECIFIED')  018800 


0000 

0000 

0800 

0300 

0300 

0300 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

eeeo 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

8000 

0000 

0000 

0000 

0000 

0000 

8000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 
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COSTUN  Listing  (C.ont  iniii'i!) 


2801  FORMAT ( /, '  FATAL  ERROR,  SEGMENT'  IS.  '  IN  REACH '.IS.'  IS  NOT  CUT 
1  AND  COUER,  BUT  ISC  SHAPE  UAS  SPECIFIED') 

2802  FORMAT!/, '  FATAL  ERROR,  SHAPE  SPECIFIED  FOR  SEGMENT ', IS, '  IN  REA 
ICH',15,'  IS  NOT  FOR  CUT  AND  COVER') 

2203  FORMAT!/,'  IIH  UARNING  ****  SOUND  ROC<  ELEVATION  LIES  ABOVE  B 
1ASE  OF  trench  in  SEGMENT' , IS,  '  IN  REACH'  15.'  AND  ROD  IS  BETuEEN 
225-58. '/20X, 'ROD  MAV  BE  TOO  LOU  FOR  DESIGN  AS  SOUND  ROOK.  > 

2204  FORMATS,'  FATAL  ERROR,  SOUND  ROCK  ELEUATJON  LIES  ABOUE  BASE  OF 

1  TRENCH  IN  SEGMENT', IS, '  IN  REACH'. 15,'  AND  ROD  IS  LESS  THAN  25.'/ 

2  13X, '  ROD  IS  TOO  LOU  FOR  DESIGN  AS  SOUND  ROCK'  ) 

220$  FORMAT ( /, '  FATAL  ERROR,  DEUATERING  MUST  BE  ALLOWED  IN  SLOPING  CU 
IT  SEGMENt'.IS, '  IN  REACH', 15,'  BECAUSE  UATER  TABLE  IS  ABOVE  BASE 
20F  TRENCH  AND'/14X, '  ABOVE  IMPERUlOUS  LAVER'] 

220?  FORMAT!/ FATAL  ERROR,  SHAFT  TYPE  IN  SEGMENT IS. '  IN  SHAFT-, 15, 
1'  UAS  NOT  SPECIFIED  BY  USING  CODE  1,2, OR  3') 

2208  FORMAT!/,'  ****  UARNING  *****  NO  METHOD  OF  EXCAUATION  OR  L1NIN 
1G  TYPE  HERE  INPUT  FOR  SEGMENT IS. '  IN  SHAFT-, 15,'.  A  DUMMY  shaft 
2  IS  ASSUMED'  ) 

2210  FORMAT!/,'  FATAL  ERROR.  EXCAUATION  METHOD  IN  SEGMENT' , IS, '  IN  SH 
1 AFT ' , IS, '  DOES  NOT  MATCH  SHAFT  TYPE  SPECIFIED') 

2212  FORMAT!/.'  FATAL  ERROR,  ROD  IN  SEGMENT' , IS, '  IN  SHAFT', IS,-  IS 
1LESS  Than  25  IN  A  ROCK  SHAFT.  USE  SOFT  GROUND  OR  CUT  AND  COuER  ) 
2215  FORMAT!/.'  ttt*  UARNING  ****  ROD  IN  SEGMENT', 15. '  IN  SHAFT-,15. 

1'  IS  GREATER  THAN  25  FOR  A  SOFT  GROUND  SHAFT '. Sx , 38<1H* )  ) 

2220  FORMAT!/,'  FATAL  ERROR,  LINING  TYPE  IN  SEGMENT- , IS. '  IN  SHAFT', 
IIS,'  DOES  not  MATCH  SHAFT  TYPE  SPECIFIED') 

2225  FORMAT!/,-  fatal  ERROR.  UATERTIGHT  LINING  REQUIREMENT  IN  SEGMENT' 

1,15.'  IN  SHAFT'. 15,'  UAS  NOT  SPECIFIED  By  USING  CODE  ZEROtOR  BLA 
INK)  OR  1' ) 

2227  FORMAT!/, '  *(**  REMINDER  ****  ALL  CUT  AND  COUER  SHAFT  SEGMENT 
IS  ARE  DESIGNED  AS  UATERTIGHT  —  INPUT  IGNORED  IN  SEGMENT'. 15, 

2'  IN  SHAFT-  IS/20X  ' AND  UATERTIGHT  DESIGN  USED') 

2230  FORMAT!/.'  FATAL  E&ROR.  NO  LINING  OR  SUPPORT  UAS  SPECIFIED  IN  SE 
lGMENT'.lS,'  IN  SHAFT', is,'  BUT  A  UATERTIGHT  SHAFT  UAS  SPECIFIED') 
223$  FORMAT!/,-  sxxt  UARNING  ****  GROUND  UATER  ELEUATION  IN  SEGMENT' 

1.15. '  IN  SHAFT', 15,'  IS  EITHER  2ERO  OR  BLANK  -  ELEUATION  ZERO  Ut 
2LL  BE  USED  IN'/'  COMPUTATIONS ' ,SX,1 14 ( jm* ) ) 

2240  FORMAT!/.'  FATAL  ERROR,  GROUND  UATER  ELEUATION  LOCATED  UITHjN  SE 
1GMENT ' , IS, '  IN  SHAFT ',15,'  -  NEED  TO  DEFINE  NEU  SEGMENT  AT  GUT') 
2245  FORMAT!/  '  FATAL  ERROR,  EFFECTIVE  GRAIN  SIZE  IN  SEGMENT' , 15, '  IN 
1  SHAFT ' , 15, '  UAS  NOT  INPUT') 

2250  FORMAT!/,'  FATAL  ERROR,  SOIL  STRENGTH  (PHI  AND/OR  COHESION)  IN  S 
1ECMENT',I5, '  IN  SHAFT', IS,'  UAS  NOT  SPECIFIED') 

2251  FORMAT!/,'  ****  UARNING  ****  POSSIBLE  ERROR  In  PERMEABILITY  IN 
l  SEGMENT', IS,'  IN  SHAFT', 15,'  -  INPUT  IS  GREATER  THAN  10  CM/SEC', 
25X, 12C 1H*  ) ) 

2252  FORMAT!/,'  **x*  WARNING  »***  FRICTION  ANGLE  IN  SEGMENT •, 15, '  I 
IN  SHAFT', 15,'  IS  GREATER  THAN  45  DEGREES ' ,SX, 3S ! 1H* ) ) 

2253  FORMAT!/,'  Fatal  ERROR,  FRICTION  ANCLE  IN  SEGMENT ', 15, '  IN  SHAFT' 

1.15, '  IS  GREATER  THAN  100. CHECK  FOR  NUMBER  SHIFTED  ON  DATA  CARD') 

2254  FORMAT!/,'  FATAL  ERROR,  UNIT  WEIGHT  OF  SOIL  IN  SEGMENT ', 15, '  IN 
1SHAFT ' , IS, '  IS  TOO  LARGE  FOR  SOIL  OR  POOR  ROCK') 

2255  FORMAT!/  -  FATAL  ERROR,  DEUATERING  REQUIREMENT  IN  SEGMENT'  15, 

1'  IN  SHAFT', 15,'  WAS  NOT  SPECIFIED  BV  USING  CODE  ZEROCOR  BLANK) 

20R  1'J 

2260  FORMAT!/,'  ****  UARNING  ****  IMPERUlOUS  LAYER  ELEUATION  IN  SEG 
IMENT'.IS,'  IN  SHAFT', IS.'  IS  EITHER  ZERO  OR  BLANK  -  ELEVATION  ZER 
20  WILL  BE  USED'/'  IN  COMPUTATIONS' , 5X, 11 1 ( 1H* ) ) 


018810  0000 
018820  0000 
018330  0000 

013840  0000 

018850  0000 
918880  0000 
0188T0  0000 
018880  0000 
018890  0000 
018900  0000 
018910  0000 
018920  0000 
0l893e  0000 

018340  0000 
018950  0000 
01896e  0000 

0i897e  0000 

018980  0000 
018990  0000 
013000  000e 
0l30ie  0000 

019020  00ee 

019030  0000 
019040  oeee 
0190S0  0ee0 
019080  00e0 
019070  0000 
019080  0000 
019090  0000 
019100  0000 
019110  0000 
019120  0000 
019130  0000 
019140  0000 
019150  0000 
019180  0000 
019170  0000 
019180  0000 
019190  0000 
019200  0000 
019210  0000 
019220  0000 
019230  0000 
019240  0000 
019250  O000 
019260  0000 
019270  0000 
019280  0000 
019290  0000 
019300  0000 
019310  8000 
019320  0000 
019330  000e 
019340  0000 
019350  0000 
019360  0000 
019370  0000 
019380  0008 
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BSCS  FORMAT!/,'  FATAL  ERROR.  IMPERVIOUS  LAVER  ELEua’ION  IN  SEGMENT-, 15 
1, '  IN  SHAFT', 15,'  IS  ABOVE  BASE  OF  SEGMENT .  NEEL  TO  DEFINE  NEu  I 
BnPERVlOUS ' / '  LAVER  BELOU  SEGMENT  OR  DEFINE  NEU  SEGMENT  «T  IMPERVI 
30US  LAVER') 

2265  FORMAT!/.'  FATAL  ERROR.  SUPPORT  TVPE  IN  SOFT  GROUND  SEGMENT'. 15, 
1'  IN  SHAFT'  is,'  WAS  NOT  SPECIFIED  8v  CODE  1,2,3, 4,  OR  5') 

227®  FORMAT !  /  ,  '  FATAL  ERROR,  SUPPORT  TvPE  IN  SEGMENT -, I§, '  Jm  SHAFT', 
IIS,'  DOES  NOT  MATCH  SHAFT  TVPE  SPECIFIED') 

2275  FORMAT!/,'  FATAL  ERROR,  LINING  TvPE  IN  SEGMENT ', IS, -  IN  SHAFT', 
IIS,'  DOES  NOT  MATCH  SUPPORT  TVP£  SPECIFIED') 

22SS  FORMAT!/,'  FATAL  ERROR,  STABILITV  NUMBER  IN  SEGMENT ', IS, '  IN  SKA 
IFT'.IS, '  IS  TOO  HIGH.  EXCAVATION  IS  IMPOSSIBLE '  ) 

2280  FORMAT!/  '  FATAL  ERROR,  STABILIZATION  MEthOD  IN  SEGMENT-  IS,'  IN 
1  SHAFT ',15,'  UAS  NOT  SPECIFIED  Bv  CODE  ZEROlOR  BLAN< ) , 1 , 2, OR  3') 
2295  FORMAT!/,'  FATAL  ERROR,  STABILIZATION  USE  CODE  IN  SEGMENT, IS. 

t'  IN  SHAFT'  IS,'  UAS  NOT  SPECIFIED  Bv  CODE  1,2, 3, OR  4') 

2300  FORMAT!/.'  FATAL  ERROR,  AIR  PRESSURE  IN  SEGMEN’ ' , IS, '  IN  SHAFT', 
115,'  WAS  NOT  SPECIFIED  UHEN  STABILITY  NUMBER  uAS  INPUT  AND  AIR  P 
2RESSURE'/'  STABILIZATION  SPECIFIED') 

2306  FORMAT!/,'  FATAL  ERROR,  STABILITY  NUMBER  UAS  SPECIFIED  IN  SEGMEN 
IT', IS,'  IN  SHAFT'  IS,'  BUT  STABILIZATION  uSE  CODE  DOES  NE  4 •) 

2307  FORMAT!/,'  FATAL  ERROR,  AIR  PRESSURE  IS  SPECIFIED  IN  SEGMENT',  IS, 
1'  IN  SHAFT',  IS,'  BUT  STABILIZATION  METHOD  NOT  COMPRESSED  AIR') 

2310  FORMAT!/,'  FATAL  ERROR,  STABILIZATION  USE  CODE  IN  SEGMENT'  15, 

1'  IN  SHAFT', IS,'  DOES  NOT  AGREE  UITh  METHOD  SPECIFIED') 

2315  FORMAT!/,'  ttz*  WARNING  i***  STABILIZATION  METHOD  IN  SEGMENT', 
115,'  IN  SHAFT'. IS,'  IS  NOT  ACCEPTABLE 30 < 1HI ) ) 

2320  FORMAT!/.'  FATAL  ERROR,  INPUT  IN  SEGMENT ', IS, '  IN  SHAFT'. 15, 

1'  REOUIRES  USE  OF  AN  UNACCEPTABLE  STABILIZATION  METHOD') 

2325  FORMAT!/,'  FATAL  ERROR.  SHAPE  IN  SHAFT ' , IS, '  UAS  NOT  SPECIFIED 
1BV  USING  CODE  ZEROiOR  BLANK >,1, OR  2'  > 

2327  FORMAT!/.'  tttx  REMINDER  ****  SHAFT', 15,'  IS  A  DUMMv .  jr  HAS 
1N0  CONSTRUCTION  COST') 

2330  FORMAT!/,'  FATAL  ERROR,  SHAFT  SHAPE  IN  SHAFT ',15,'  INDICATES  A 
1DUMMV  SHAFT  BUT  A  SIZE  IS  SPECIFIED') 

2332  FORMAT!/,'  FATAL  ERROR,  SHAFT  SI2E  IN  SHAFT', 15,  '  INDICATES  A  D 
1UNMV  SHAFT,  BUT  SHAPE  CODE  IS  NOT  ZERO') 

2335  FORMAT!/,'  FATAL  ERROR,  UORK  HOURS  IN  SHAFT', 15,'  UERE  NOT  SPEC 
1IFIED  BY  A  NUMBER  FROM0  TO  24' ) 

2340  FORMAT!/,'  Fatal  ERROR,  UORK  DAYS  IN  SHAFT', 15,-  UERE  NOT  SPECI 
1FIED  BY  A  NUMBER  FROM  4  TO  7'  ) 

2345  FORMAT!/,'  fatal  ERROR,  SEGMENT ', 15, '  IN  SHAFT-, IS,'  ;s  >  ROCK 
1  BUT  SHAPE  IS  SQUARE') 

2350  FORMAT!/,'  FATAL  ERROR,  CAST  IRON  SHAFT  SUPPORT  UAS  SPECIFIED  IN 
„„  1  SEGMENT' ,  15, '  IN  SHAFT', 15,',  BUT  CIRCULAR  SHAPE  NOT  SPECIFIED') 

2355  FORMAT!/,'  FATAL  ERROR,  CIRCULAR  SHAPE  UAS  NOT  SPECIFIED  FOR  MOL 
1ED  EXCAVATION  IN  SEGMENT', IS, '  IN  SHAFT ',15) 


END 

SUBROUTINE  SFTSET ( A, B, CNP, SHAFT, TRDATA, NTSMAX, NSSMAX, NPMAx, NSMAX, 
INTRflfiX  ) 


I£I§.5ii®2OUTINE  WILL  CREATE  AN  ARRAY  CALLED  SHAFT  UMICH  CONTAINS 
PERTINENT  SHAFT  INFORMATION 


019390  0000 
0194ce  0030 
019410  0000 
019420  0000 
31943e  0003 
019440  30ae 
019450  0000 
019460  0300 
019470  0000 
015483  0000 
319490  0300 
319500  0000 
019S10  3000 
019520  0000 
019530  0000 
019S40  00OO 
019550  0000 
019560  0000 
019570  0000 
019580  0000 
019530  0000 
019600  0000 
019610  0000 
015620  0000 
019630  0000 
015640  0000 

015650  0000 
019660  8000 
019670  0000 
019680  0000 
019630  0000 
019700  0000 
019710  0000 
019720  0000 
019730  0000 
019740  0000 
019750  0000 
019760  0000 
019770  00e0 
019780  00e0 
019790  0000 
019800  0000 
019810  0000 
019820  0000 
019830  0000 
019840  0000 
019850  0000 
019860  0000 
019870  0000 
019880  0000 
019890  0000 
019900  0000 
019905 
019910  0000 
019920  0000 
019930  0000 
019940  0000 
019950  0000 
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COSTUN  Listing  ( l  'on  t  i  mn-tl ) 


COddON  /BASIC'  NSS , NTS 

COMMON  /A/  LC.lI.PM,OM.LISTC40),T:TLE!16e).STA8EG,ITvPE 
COddON  'F'  IERROR, ISTOP 

DIMENSION  A<NTSHAX,68  ) , B< NSSMAX.43 >, CNP! NPMAX.2 ) , SHAFT  I NSMAX,  23 , 
1  TRDATAC  NTRNAX.23 > 


INITIALIZE 


NPT»B(1.3) 

NPB-BC1.4) 

NSEGS-0 

1*1 

NSSEG1-1 


10  IP- I 
1-1*1 

NS£GS»NS£GS*1 


CHECK  FOR  LAST  SHAFT  SEGMENT  CARD 
IFCI.GT.NSS)  GO  TO  30 


SEE  IF  PREVIOUS  SEGMENT  UAS  IN  SAME  SHAFT  AS  THIS  SEGMENT 
IFlBCI.l  ).EQ.8CIP,1)>  GO  TO  20 
GO  TO  30 

20  NPB-B! 1,4) 

GO  TO  10 

30  NSHAFT-BUP.l) 

SHAFT(NSHAFT, 1  J-NSSEGl 
SHAFT<NSHAFT,2).NPT 
SHAFT ( NSHAFT, 3 ) -NPB 
SHAFT! NSHAFT, <4  ) -MSECS 
IF(I.CT.NSS)  GO  TO  40 
NPT-BCI.3) 

NPB-B! 1.4) 

NSSEG1-I 
NSEGS-0 
GO  TO  10 


40  continue 

CHECK  FOR  SHAFTS  CONTAINING  BOTH  CUT  AND  COUER  AND  NON-CC  SEGMENTS 

DO  800  NSHAFT-1, NSMAX 

IF(SHAFT(NSHAFT, d.lt. -10. E29)  go  tO  800 

nssegi-shaft(nshaft,i j 

NSECS-SHAFT(NSHAFT,4) 

DO  700  J-l.NSEGS 
NSSTVP-B ( NSSEG1 , 15 ) 

IFCJ.EG.l  )  GO  TO  700 
IF(NSSTVP.LT.3)  GO  TO  700 
SEGMENT  IS  IN  CUT  AND  COUER 
IF(NSSTVP.E0.B<NSSEG1-1,1S) )GO  TO  700 
ISTOP-1 

N5SEC»B(NSSEG1,2 ) 


(Continued ) 


O199S0 

019970 

019980 

019990 

020000 

020010 

0E0020 

020030 

020040 

020050 

020060 

020070 

020080 

020090 

020100 

020110 

020120 

020130 

020140 

020150 

020160 

020l7e 

020180 

020190 

0202e0 

0202ie 

020220 

020230 

020240 

02025e 

020260 

020270 

020280 

020290 

020300 

020310 

020320 

020330 

020340 

020350 

020360 

020370 

020380 

020390 

020400 

020410 

020420 

020430 

020440 

020450 

020460 

020470 

020480 

020490 

020500 

020910 

020520 

020530 


V 


ooo 


(Clinii  i  muni ) 


COSTl'N  List  i  iif. 


uRiTE<Lo,iaee3  nsseg,nshaft 
709  NSSEG1-NSSEG1+1 
809  CONTINUE 

C  . . - . 

C  CHECK  FOR  any  STOPS  FOUND 
IF ( ISTOP.EQ.0  )  RETURN 

C  FATAL  ERRORS  detected. TERMINATE  RUN  AND  GO  TO  NEXT  DATA  DECK 
URITEao.2000) 

CALL  NEXSETC LO, LI  ) 

'"1000  FORMATC'.'  FATAL  ERROR,  SEGMENT'  15,-  IN  SHAFT-, IS,'  IS  IN  OUT 
1AND  CCUER, BUT  not  all  other  SEGMENTS  ARE-) 

2000  FORMAT (/>-✓,  IX, 119(1  HI ),'25X,  'PROGRAM  STOPPED  BECAUSE  OF  ERRORS  I 
IN  SUBROUTINE  SFTSET -  ,/lx,  1 19 1  1H*  )  ) 


RETURN 

END 


0205*0  0080 
020550  0000 
020560  0000 
020570  0000 
020580  0000 
020590  0000 
020600  O8e0 
020610  0800 
020620  0080 
020630  0000 
0206X0  0000 
020650  0000 
020660  0000 
82e670  0000 
020680  0000 
020690  0000 
020700  0000 
020710  0000 
020720  0900 
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COSi'l’N  l.i.stinn  ( ( 'nil  l  i  iiin-i!  ) 


SUBROUTINE  LENGTH  <A,B,CNP,ShAFT,TRDa7A.CUMSL,NTSMAX,NSSMAX, 
1NPMAX ,  NSMAX ,  NTRMAX  ) 


THIS  SUBROUTINE  CALCULATES  ALL  SEQUENT  LENGHTS  AND  MuCK  TRANSP0RT 
DISTANCES 


common  /basic/  ns$,nts 

COMMON  /A/  LO.LI,PM,OM,LISTC40),TITLE(160).STABEG.ITVPE 
COMMON  /F/  IERR0R, ISTCP 

DIMENSION  A(NTSMAX,68  ),B(NSSMAx,43),cnP(NPMAx,2 ), Shaft (NSMAX, 23 >, 
1  TRDATA ( NTRMAX, 23  ) , CUMSL ( NPMAX  ) 


CALCULATE  SHAFT  SEGMENT  LENGTHS 
DO  20  1*1, NSS 
NPT-B (1.3) 

NPB*B(I,4> 

ELNPT -CNP  (  NPT, a ) 

elnpb*cnp<  npb, a  i 
SSEGL-ELNPT-ELNPB 
20  BtI,3S)-SSEGL 


CALCULATE  SHAFT  HOISTING  DISTANCES  FOR  EACH  SEGMENT  AND  EACH  SHAFT 
SUM  . RUNNING  SUM  CF  SHAFT  SEGMENT  LENGthS  IN  SHAFT  I 

DC  50  !•  1 .NSMAX 

IF (SHAFT! 1,1 J .LT .-10. £39)  GC  TO  50 

NS SEG1 “SHAFT (1,1) 

NSEGS*SHAFT(I,4) 

SUM-0 . 

DO  40  J- 1 , NSEGS 
SSEGL-B(NSSEGt.3S ) 

HH-SUM+.5XSSEGL 
B ( NSSEG1 , 36 )-HH 
SUM-SSEGL+SUM 
40  NSSEG1-NSSEG1+1 
SHAFT (1,8 ) -SUM 

CHECK  FOR  SHAFT  DEPTH  GREATER  THAN  3000  FEET 
I F ( SHAFT (  1,8 ) . GT.3000.  )  URITE(LC,1071  )  I 
50  CONTINUE 


CALCULATE  ACTUAL  TUNNEL  SEGMENT  LENGTH  (LENGTH  ALONG  ’me  SEGMEN’;. 
AS  AN  INTERMEDIATE  STEP.  CALCULATE  THE  STATIONING  OF  hhE  -lnnEL 
NODAL  POINTS  ALONG  THE  LENGTH  OF  THE  SEGMENTS  (NOT  ThE  HORIZONTAL 
LENGTH),  AND  THEN  CALCULATE  HORIZONTAL  STATIONING 

sta-stabeg 

NPL-A(1.2) 

CUMSLtNPL  )-0.0 
CNP (NPL, 1  )  -STABEG 
DO  60  I-UNTS 
TSEGL-AU.45) 


0S0T20  0000 
020733  0000 
020735 
020740  0000 
020750  0000 
020760  0000 
020770  0000 
020780  0000 
020790  0000 
020900  0000 
020810  0000 
020820  0000 
020830  0000 
020840  0000 
020850  0000 
020860  0000 
020870  0000 
020880  0000 
020890  0000 
020900  0000 
020910  0080 
020920  000e 
020930  0000 
020940  0000 
020950  000e 
020960  0000 
020970  0000 
020980  0000 
020990  0000 
021000  0000 
021010  0000 
021020  0000 
021030  0000 
021040  0000 
021050  0000 
021060  0000 
021070  0000 
021880  0000 
021090  0000 
021100  0000 
321118  0000 
3a 1120  0000 
021130  0000 
021140  0000 
021150  0000 
021160  0000 
021170  0000 
021180  0000 
021190  0000 
821200  0000 
021210  0000 
021220  0000 
021230  0000 
021240  0000 
021250  0000 
021260  0030 
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NPL*A<I,2) 

NPfi*A<I.3> 

ELNPL*CNP(NPL,2) 

ELNPR*CNP(NPR,2 ) 

SEGL«SGRT ( ( ELNPL-ELNPR )I*2*TSEGL«2 > 

cumslcnpr  )*cumsknpl  >*segl 

STA*StAfTS£GL 

THE  NEXT  STATEMENT  CONCERTS  TSEGL  FROM  HORIZ.  TO  TRUE  LENGTH 
TSEGfSEGL 
A(I,45)*TSEGL 
60  CNPtNPR.l >»STA 

CALCULATE  AUERAGE  MUCK  TRANSPORTATION  DISTANCES  AND  SLOPES  (TO 
MIDPOINT  OF  SEGMENTS)  USING  NODAL  POINT  STATIONING 

DO  70  1*1, NTS 
NPL*A( 1,2) 

NPR-ACl.3) 

ELNPL*CNP(NPl,2 ) 

ELNPR«CNP(NPR,2) 

NREACH* A < 1,4) 

NSHAFT*TRDATA( NREACH,  1  ) 

NPBS-SHAFT(NSHAFT,3) 

ELNPBS-CNP(NPBS,2) 

DM*ABS(CUMSL(NPBS  !-<  CUMSL<NPL l+CUMSH NPR ) )/£. )/5280. 
RL*DM15280.*A8S(CUMSL(NPL  )-CUf1SL(NPR )  >'2. 

CHECK  FOR  REACH  LENGTH  GREATER  THAN  105600  FEET (  20  NILES) 
IF(RL.GT. 105600. )  URITE ( LO, 1061 )  NREACH 
A( 1,46  )*DM 

CALCULATE  ELEUATION  DIFFERENCE  FROM  BASE  OF  SHAFT  TO  SEG.  MIDPOINT 
ELEU-ELNPBS-(ELNPL*ELNPR )/2. 

HSLOPE-ELEU/SQRT((DM*5280. >I*2-ELEUt*2 ) 

70  A(I,47)-HSL0PE 

CHECK  FOR  DUMMV  SHAFT  ADJACENT  TO  AT  LEAST  ONE  CUT  AND  COUER  REACH 
DO  200  I-l.NSDAX 

IF (SHAFT; 1,1  1.LT.-10.E29)  GO  TO  200 
ISHAPS-SHAFT(I,16) 

IF ( ISHAPS .NE . 0  )  GO  TO  200 
nport • shaft  < i , 23 ) 

IF(NPORT.EO.l)  GO  TO  200 
NPBS'SHAFT <  1 , 3  ) 

STA«CNPCNP8S, 1  ) 

IF(STA.GT.STABEG)  GO  TO  100 
NTSTVP*A< 1,16) 

IF ( NTSTVP . EG . 3 )  GO  TO  200 
GO  TO  ITS 
100  STA-STA-1.0 
IJK-0 

DO  1S0  J* 1 .NTS 
NPL-AC J.2) 

NPR-A(J,3) 

IF (STA . GT . CHP( NPL , 1  )  .AND . STA . LT , CNP ( NPR, l ) )  GO  TO  160 
150  CONTINUE 
160  NT$TVP»A( J. 16  ) 

IF ( NTSTVP. EQ. 3)  GO  TO  200 
IF ( J. EG. NTS )  GO  TO  l?S 


021270 

021280 

021290 

021200 

021310 

021320 

021330 

021340 

021350 

021360 

021370 

021380 

021390 

021400 

021410 

021420 

021430 

021440 

0214S0 

021460 

021470 

021480 

021490 

021500 

021S10 

021520 

021530 

021S40 

021550 

821560 

021570 

021580 

021596 

021600 

021610 

021620 

021630 

821640 

021650 

821660 

021670 

021680 

021690 

021700 

021710 

021720 

021730 

021740 

021750 

021760 

021770 

021780 

021790 

021800 

021810 

021820 

021830 

021840 


(Cont inued ) 
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ooooooooo  ooooooooooo 


COS  I  l'N  List  in;;  (Ci>nt  i  mn  il  ) 


NTSTVP-A(J41,16) 

IF( NTSTVP ,E0. 3 )  CO  TO  200 
ITS  IERROR-1 

UfilTE ( LO, 2000 )  I 
200  CONTINUE 


1061  FORMAT;/,'  MMtf  WARNING  ****  TOTAL  LENGTH  OF  REACH ' , 15, '  EXCE 
1EDS  20  NILES' ,5X,51(IH*)) 

1071  FORMAT; /, '  ****  WARNING  ****  SHAFT' ,  15,  '  IS  OUER  3000  FT  DEEP’ 
1 ,SX,63; 1H* ) ) 

2000  FORMAT; /, '  FATAL  ERROR.  SHAFT', 15.'  IS  A  DUMMY  SHAFT,  BUT  tnERE 
1  ARE  NO  ADJACENT  CUT  AND  COUER  REACHES') 

return 

END 

SUBROUTINE  INOUT:  I.A.B.CNP.SHAFT.TRDATA.NLINES.  IP.NT$riAX,NSSf1AX, 
1NPMAX.NSMAX.NTRMAX ) 


THIS  SUBROUTINE  LISTS  OUT  ThE  INPuT  DATA 

SEGMENTS  ARE  LISTED  IN  THE  ORDER  OF  APPEARANCE  ALONG  '"E  ROuTE 
I«  SEGMENT  SEQUENCE  NUMBER,  NUMBER  IN  ORDER  OF  APPEARANCE 


COMMON  /BASIC/  NSS.NTS 

COMMON  /A/  LO.II ,PM,0M, LIST( 40 ) .TITLEC 160  )  ,STABEG, ITvPE 
DIMENSION  A(NTSMAX,68 ), B(NSSMAX,43) ,CNP(NPMAX,2  ),SHAFTfNSMAX,£3 ), 

1  TRDATAINTRMAX.23) 

DIMENSION  FMTitai  ),FMT2<lS!.FMT3i7),FMT4(20:,FMT5(13) 

DOUBLE  PRECISION  STATEMENTS  ARE  REQUIRED  FOR  LITERALS  hauING 
S  TO  8  CHARACTERS  ON  COMPUTERS  THAT  mAUE  4  CHARACTERS  PER  UORD, 
SUCH  AS  THE  IBM  360,  FORTRAN  lu  COMPILER. 

REMOUE  THE  FOLLOUING  DOUBLE  PRECISION  STATEMENTS  FOR  COMPUTERS 
THAT  HAUE  6  CHARACTERS  PER  UORD  SUCH  as  the  UNIUAC  1108, 

FORTRAN  U  COMPILER. 

ALL  LITERALS  IN  THIS  SUBROUTINE  MAuE  A  MAXIMUM  OF  6  CHARACTERS 
TO  BE  COMPATABLE  UITH  BOTH  SYSTEMS. 

DOUBLE  PRECISION  BLANK,  CONU, ’'MOLER,  TMOLES,  HANDS,  RIPPER,  UERTCC, 
1SLOPCC. HORSE, BASKET, CIRCLE, BOX, TUCBOX, SQUARE, CONUVR, truck, TRAIN, 
aCONTRK.TNCNE.jE-, DRV. ANO , VES ,C I RSEG, CONSEG , STLSEG , STLSE" , SOLDER, 
3SLURRV.0PENCT, AIRPRS.DEUATR, GRD IN J,uSENO,PREFNO, STRUT, ANCHOR. 
4STRANC 

DOUBLE  PRECISION  SHAPE, REMK, EXCAu.UTLIN, ar, TL, "OURS, DAvS, SuPORt, 
1DUATER, STABIL, GAMMA, PERM, STABNO. AIRPR, DECK, BRACE, BFT.EXMS, 

2SHAPS, GRDU 

REALX8  J BLANK , NONE , I SHOT, ICONC, IPREC, IFNEC, MUS’US, luSE,  L^VP 

tmmiiimiitmmnmmmimtmuimtiiiimmmmx 

CHARACTERX6  FM1/‘2X,A6,'/,FM2/'A5, '/,FM3/'A5)'/,rM4/ 

1 ' C IX, A4 ' / , 

1FMS/' IX. A4, '/,FM6/'SX,A4, '/.FM?/' IX.A6, ' /, FM8/ ' 4X, A6,  ' /, FM9/ ' A6,  ' / 
2,FM10/'A6)'/,FM11/'(1X,I4'/,FM12/'F8.1, '/.FM13/ 'F5. 1 ,  ' /, 
3FM14/'F5.1  )'/,FM15/'I5, '/,FM16/'3X,I6,'/,FM17/'F?.l,'/, 
4FM18/'E10.2. '/,FM19/'F6. 1, '/,FM20/'F6. 1 )'/,FM21/'F7.2,  '/, 
SFM22/-3X.A4, '/,FM23/'I7,  '/ 


(Cent inued) 


e2i8se  0000 
021860  000e 

021878  0000 
021880  0003 
021390  0000 
021908  0000 
021910  0000 
021920  0000 
021930  0000 
021943  0000 
021950  0000 
021960  0000 
02l97e  0000 
02l98e  0000 
021990  0000 
021995 
022000  0000 
0220ie  0000 
022020  0080 
022030  0000 
02204e  0000 
022050  0000 

022060  000e 
022070  0000 
02208e  0000 
022090  000e 

022100  0000 
022110  0000 
022120  0000 
022130  0000 

022140  0000 
022150  0000 

022160  08e0 

022170  0000 
022180  0000 
022190  0000 
022200  O000 
022210  0000 
022220  0000 
022P30  0000 

022240  000e 
022260  0000 
02227e  0000 
022280  0000 
@22290  000e 
022300  0000 
022310  0000 
022320  0000 
022330  0000 
022340  0000 
022370  0000 
022380  0000 

022390  0000 
022400  0000 
022410  0000 
022420  0000 
022430  0000 


A60 


ooooo 


COSTUN  Listing  (Continued) 


uriteclo,i000> 

URITECLO, 1001  > 

write  ao.  10021 

NLINES-0 

30  NR£ACH-A(I,4) 

NTssa-Ati.n 

N$HAFT-TRDATA(NR£ACH, 1 ) 
BFT-TRDATA ( NREACH,  2 ) 
IPR-IP 


FIND  THE  HORIZONTAL  SEQUENT  LENGTH  OF  EACH  SEGMENT,  HSEGL, 

(HORIZONTAL  SEGMENT  LENGTH  AS  GIUEN  IN  THE  INPUT 
MUST  BE  CALCULATED  SINCE  IT  UAS  PREUIOUSLV  DESTROvED  UHEN 
IT  UAS  CONUERTED  TO  LENGTH  ALONG  THE  SEGMENT.  TSEGL(D) 
NPL-A(I,2) 

NPR-ACI.3) 

SEGL-CNP(NPR, 1 )-CNP(NPL.  1  ) 

LSEGL-SEGL 

FIND  ALPHA  NAME  FOR  SHAPE 
40  ISHAPE-TRDATACNREACH.3! 

IB0X2-TRDATA ( NREACH , 1 3 ) 

IF ( ISHAPE . EG . 0 )  SHAPE* BOX 

IF ( I SHAPE . EO.0. AND. IB0X2.EQ. 1 )  SHAPE • TUOBOX 

IF C ISHAPE. EG. 1 )  SHAPE-CIRCLE 

IF (ISHAPE . EG .2  )  SHAPE-HORSE 

IF ( ISHAPE. EQ. 3.  SHAPE-BASKET 

FIND  THE  ALPHA  NAME  FOR  THE  LINING  TVPE 
LINING-A(I.IC) 

IF (LINING . EQ . 0  )  LTVP-NONE 
IF ( LINING .EG . I  )  LTVP-ICONC 
IF(LINING. EO.2 )  LTVP-ISHOT 
IF (LINING. EO. 3  )  LTVP-IPREC 
IF ( LINING . EG . 4 ) LTVP - IPREC 

FIND  ALPHA  NAME  FOR  MUCK  TRANSPORT  METHOD 
50  MTM-TRDATA( NREACH, 4) 

IFtMTM.EQ. 1 )  REMK-TRUCK 
IF(MTM.EG.2)  REMK-CONUVR 
IFtMTM.EQ. 3)  REMK-TRAIN 
IFtMTM.EQ. 4)  REMK-CONTRK 

FIND  ALPHA  NAME  FOR  METHOD  OF  EXCAUATION 
60  MEX-A  £1,7) 

IFtMEX.EQ.n  EXCAU-CONU 

IF(MEX.EQ.2 )  EXCAU-TMOLER 

IF (MEX .EQ . 3 )  EXCAU-TMOLES 

IF (MEX.EQ. 4 )  EXCAU-HANDS 

IF (MEX, EG. 5 )  EXCAU-RIPPER 

IF (MEX.EQ. 6 )  EXCAU-UERTCC 

IFCMEX.EQ.7)  EXCAU-SLOPCC 

FIND  ALPHA  NAME  FOR  UATERTIGHT  REQUIREMENT 

LINUT -A( 1,15) 

IF( LINUT. EG . 0 )  UTLIN-ANC 
IFtLINUT.EQ. 1  !  UTLIN-VES 
NTSTVP-A( 1,16) 

IFCNTSTVP .EG. 3 )  UTLIN-YES 


022970 

022930 

02299O 

023000 

023010 

023020 

023030 

023040 

e230S0 

023060 

023070 

023080 

023090 

023100 

023110 

023120 

023130 

023140 

023150 

023160 

023170 

023180 

023190 

023200 

023210 

023220 

023230 

023240 

0232S0 

023260 

023270 

023280 

023290 

023300 

023310 

023320 

023330 

023340 

023350 

023360 

023370 

023380 

023390 

023400 

023410 

023420 

023430 

023440 

023450 

023460 

023470 

023480 

023490 

023500 

023510 

023520 

023530 


(Cont i nued) 
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COSTUN  Listing  (Con Limit'd) 


70  AR*A(I.8> 

JRS-A<It5) 

JROD-AC 1,6 ) 
JRTEPP-A(I,12> 

INFLOW- A l 1.9 ) 

IF ( INFLOW. IT. 0)  INFLOU-0 
TL-AU.ll) 

if<tl.1e.«. >  Ti-e. 

£LUATR-A( 1,14 ) 
HOURS-TRDATA ( NREACH ,8 ) 
DAYS-TRDATA<NREACH,9 ) 


CHECK  TO  SEE  IF  THIS  IS  THE  SAKE  REACH  AS  FOR  PREVIOUS  SEGMENT 
8$  IF ( IPR.EO.NREACH  )  GO  TO  90 

SET  UALUES  OF  HOURS  AND  DAYS  FOR  PRECIOUS  REACH  IF  N0T  INPUT 

IF(I.EQ.l)  CO  TO  88 

N'AU-l.O 

IF(TRDATA(N,8).LT.0.1 3  TRDATA (N, 8  )-24 . 0 
IF(TRDaTA(N,9>.LT.0.1  )  TRDATAtN, 9  3*6.0 
88  URITEO.0.1004) 

90  IF( IPR.EO.NREACH)  URITE 0.0,2080 > 

NLINES-NLINES+1 

adjust'forhat  and  urite  statements  to  put  blanks  in  OUTPUT  UHEN 

UARIABLE  CHECKED  IS  NOT  SPECIFIED  IN  INPUT  DATA 

91  IF(AR.GT.0.0)  GO  TO  92 
AR-BLANK 

FfITl  ( 1 1  )  -Ffll 

92  IF(U.GT.0.0)  GO  TO  93 
TL-BLANK 

FT1T1C 17  3-FH2 

93  IF(HOURS.GT.0.0)  GO  TO  94 
HOURS -BLANK 

FfITl  (20  >-Ffl2 

94  IF(DAVS.GT.0.03  CO  TO  9S 
DAYS -BLANK 

FNT1 (21 3-FM3 

95  IF ( IPR.NE .NREACH  )  GO  TO  98 
NREACH-IBLANK 

FfITl  ( 1 3-FH4 
HOURS- BLANK 
FPIT1  (20  3-FN2 
DAYS-BLANK 
FfITl  (21 3-FN3 

98  IFtNTSTYP.GT. 1 )  GO  TO  100 
ROCK  TUNNEL 

URITE ( LO. FftT  1  )  NREACH, NTSEG. NPL , NPR.NSHAFT, LSEGL, SHAPE, BFT , RENK , 
1EXCAU,  AR.JRS,  JRQD,  JRTtflP,  INFLOU, LTYP,  TL, UTL IN, ELUATR, HOURS, DAYS 
GO  TO  140 

SOFT  GROUND  TUNNEL  OR  CUT  RND  COUER  BOX 
FIND  ALPHA  NAflE  FOR  SUPPORT  tvPE 
100  ISUPPT-A( 1,26 ) 

IF ( ISuPPT .EQ.0 )  SUPORT-TNONE 
IF(ISUPPT.EQ.l)  SUPORT-CIRSEG 
IF (ISUPPT. EG. 2)  SUPORT-CONSEG 


023540 

0235S0 

023560 

023S70 

023580 

023S90 

023600 

023610 

023620 

023630 

023640 

023650 

023660 

023670 

023680 

023690 

023700 

023710 

023720 

023730 

023740 

023750 

023760 

023770 

023780 

023790 

023800 

023810 

023820 

023830 

023840 

023850 

023860 

023870 

023880 

023890 

023900 

023910 

023920 

023930 

023940 

023950 

023960 

023970 

023980 

023990 

024000 

024010 

024020 

024030 

024040 

024050 

024060 

024070 

024080 

024090 

024100 

024110 


(Cont inucd ) 
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COSIl'N  List  inn  (Com.  i  need  ) 


C 

C 


SOFT  GROUND  TUNNEL 

WRITE (L0.FMT1  )  NREACH, NTSEG.NPL, NPR.NSHAFT  LSEGL, SHAPE, BET , PErtK. 
1EXCAU, AR, JRS.JROD, JRTEMP,  INFLCU, LTVP,TL,UTLIN, ELJA'R, HOURS, DAYS 
JRTEMP»A( I » IS  ) 

WRITE CL0,FMT2>  NPLS. NPRS.D10, GAMMA, PHI .COHESN. PERM. JRTEMP, DUATEP. 
1ELIMP, SUPORT.STABNO, STA81L, IUSE , AIRPR 
NLINES*NLINE5*1 
GO  TO  149 


CUT  AND  COWER 

FIND  ALPHA  NAMES  FOR  DECKING  REQUIREMENT 
129  IDECK'AC 1,29 ) 

IF < IDECK . EQ . 0 3  DECK* ANO 
IFdDECK.EQ.l  )  DECK-YES 
find  ALPHA  NAME  FOR  BRACING  specified 
IBRACE-A  1 1,28  ) 

IF ( IBSACE .£0.0)  BRACE-TnONE 
IF ( IBRACE.E0.1 )  BRACE-STRuT 
IF C IBRACE.EO.2  )  BRACE-ANCHOR 
IF ( IBRACE .EG . 3  )  BRACE-STRANC 
ELROCK-A( 1,27  > 

NREPCH-A(  1.4  ) 

NBOX-TRDATACNREACH, 19  ) 

BFBUDT-TRDATA(NREACH, 11  ) 

BFBHT-TRDATA(NREACH,12  ) 

ADJUST  FORMAT  AND  URITE  STATEMENTS  TO  PUT  BLANKS  IN  OUTPUT  UHEN 
UARIABLE  CHECKED  IS  NOT  SPECIFIED  IN  INPUT  DATA 
REMOUE  TUNNEL  SIZE,  MUCK  TRANSPORT,  SOIL  TEMPERATuRE,  AND 
STABILIZATION  FOR  CUT  AND  COUER. 

IF< IPR . EQ . NREACH  )  NREACH- IBLANK 

BFT-BLANK 

FMT1 C8  1-FM7 

REMK-BLANK 

JRTEMP-IBLANK 

FMT2(8 1-FM5 

IFUNFLOU.GT.0)  GO  TO  138 
INFLOU-IBLANK 
FMT1(1S)-FMS 
STABIL-BLANK 

138  URITE  C  LO.FMTi  )  NREACH, NTSEC, NPL, NPR, NSHAFT, LSEGL, SHAPE, BFT, REMK, 
1EXCAU,AR,JRS,JRQD,JRTEMP, INFLOW, LTYP,TL,UTLIN,ELJATR, HOURS, DAVS 
URITE <L0,FMT2)  NPLS, NPRS,D10, GAMMA, PhI ,COHESN, PERM, JPTEMP, DUATER, 
lELIMP.SUPORT.STABNO.S’ABIL.IJSE.AIRPR 
URITE<  L0.FMT3  3  ELROCK, DECK , BRACE , NBOX, BFBuDT, BfBht 
NLINES-NUNES+2 


140  NREACH* A( 1,4) 

IF(IPR.NE. NREACH!  IPR. NREACH 

C  SET  UALUE  FOR  GAMMA  IN  THIS  TUNNEL  SEGMENT  IF  NOT  INPUT 
IF  <  NTSTYP .GT. 1 . AND . A( 1 ,22  > . LT .0 . 1  )  A (1, 22). 120.0 

C  SET  UALUE  FOR  PERMEABILITY  IF  NOT  INPUT 

IF < NTSTvP . GT . 1 . AND. All ,25 ) .GT. 10. E-10 )  PERM. -PERM 
IFtNTSTYP.GT.l, AND. A(I, 251.LT. 10. E-10)  PERM.D10M2/10. 

A  d,  251- PERM 
IP-IPR 

C  RESET  FORMATS  TO  ORIGINAL  IN  DATA  STATEMENT 
FMTld  J.FM11 


924700  000e 
924710  0000 
924729  9000 
924730  0000 
924740  000e 

924750  0000 
024760  0000 
024770  00e0 
024780  0000 
024790  0000 
024800  0000 
924810  9000 
024820  0000 
924830  0000 
024840  0002 
024850  0009 
024860  0009 
024870  0009 
924880  0000 
024890  0000 
024900  0000 
024910  0000 
024920  e000 
024930  0000 
024940  0000 
024950  0000 
024960  0009 
024970  0000 
024980  0000 
024990  0000 
025000  0000 
025010  0000 
025020  0000 
025030  0000 
025040  0000 
025050  0000 
025060  0000 
025070  0000 
025080  0000 
025090  0000 
025100  0000 
025110  0000 
025120  FMT0 
025130  FMT0 
025140  0000 
025150  0000 
025160  0000 
625170  0000 
025180  0000 
025190  0000 
025200  0000 
025219  0000 
025220  0008 
025230  0000 
025240  0000 
025250  0000 
025260  0000 
025270  0000 


(Continued) 
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iTER.ELINP, STAHL 


NSHArr.HSSEC.HPVtPt.SHAPS.SFS.EXIW.AR.JRS.JRQD, 
LIH.DD5.ICDS, lARTEfl , ELUATR . HOUftS . DAVS 
D1S,  GAfin  A ,  PHI,  COHESN,  PERU,  &UATER .  ELI  HP ,  SOPOR  T . 
USE, A I RPR 


ooooo 


•  •OS  I  l  X  1 .  i  s  l  i  a;;  ( (!i mi  t  i  mii'il ) 


ENTRY  SIZESS ( I , A. • . CUP. SHAFT , TRDATA, NTSKAX, NSSNAX, NPNAX , NSNAX . 
1NTRNAX ) 

I -SHAFT  SEQUENT  SEQUENCE  NUNBER 
ITYPC-2  INDICATES  SHAFT  SEGMENT 
I TYPE* a 
TtlN-SU.ll) 

NSHAFT-8CI.1 ) 

I SNAPS ■ SHAFT ( NSHAFT , IS ) 

IF( I SNAPS .EQ • 9 )  RETURN 
NPORT -SHAFT ( NSHAFT , 33  ) 

IF(NPORT.EQ.l)  RETURN 
NSSEG-BC 1,2 ) 

BF$-$HAFT<NSHAFT,7) 

if-bfs 

LIN1NG-BC I, IS ) 

HEX-ICI. 7  I 
HSTAKE-0 
ELUATR-BC I, 13 ) 

LINUT-BU.14) 

NSSTYP-BC 1,15) 

NTSTYP-S 
NPT-B( 1, 3 ) 

NPB-B<I,4) 

ELNPT • CNP  C  NPT , 2 ) 

ELNPB-CNPCNPB.2) 

ELAUC- ( ELNPT+ELNPB )/2 . 


CONUERT  TL  TO  FEET 

IS  TLIN-TLIN/-12. 

IS  IT  A  ROCK  TUNNEL  OR  SHAFT 

IFCNTSTYP.EQ.i.OR.  NSSTYP.EQ.i)  GO  TO  IS 

IS  IT  A  SHAFT 

IF ( ITYPE.EQ.2 )  GO  TO  12 

PHI-ACI.20) 

NPLS*A( 1,17) 

NPRS*A( 1,18) 

ELNPLS-CNP<NPLS,2) 

ELNPRS*CNP  <  NPR5.2 ) 

ELSURF- ( ELNPLS+ELNPRS )/2 . 

GANNA-AC 1,22 1 
COHESN-ACX ,21 ) 

ISUPPT-A< I,2S ) 

GO  TO  13 

12  PHI-BCI.18) 

QAP1HA-t(I,18) 

C0HESN-BU.17) 

ISUPPT-BC 1,22 ) 

NPTS-SHAFT< NSHAFT. 2) 

ELSURF«CNP<NPTS.a> 

13  PI-3.14169 
DUATER-EL6URF-ELUATR 
ICUTHC-0 

IS  IT  A  SOFT  GROUND  TUNNEL  OR  SHAFT 


-  S3879S  eess 
028806  6000 
028816  0006 
028815 
028826  0006 
028836  0006 
028840  0606 
6288S0  0006 
628866  0606 
0288'’e  0066 
028880  0000 
028890  6006 
028900  0006 
028910  0006 
628320  0006 
028936  0060 
028940  0006 
028950  0066 
028960  0000 
028970  0666 
028980  0000 
028990  0000 
029000  0060 
029010  0000 
029020  0000 
029030  0000 
029040  0600 
0290S0  0000 
029060  0600 
029070  0000 
029080  0000 
029090  0600 
029100  0000 
029110  0000 
629120  0000 
029130  0000 
029140  0000 
029150  0000 
029160  0000 
029170  0060 
029180  0000 
029190  0060 
029200  0060 
029210  0000 
029220  0006 
029239  0000 
029240  0000 
029250  0606 
629260  0006 
029270  0600 
029286  0006 
029290  0000 
029300  0006 
029310  0000 

029320  0006 

029330  6000 

029340  0000 

029350  0000 


(Cont inued) 


A  7  i 


t 


ooo  ooooo  oo  o  ooooo  oo  o  noon  on 


STORE  IE  AND  101  COMPUTED  USING  FICTICIOUS  AQD*60 

iSS&ICB 


CALCULATE  IE  AMD  101  IV  INTERPOLATING  IETUEEN  IE  AND  101 
UALUCS  AT  ROD'40  AND  ROD'S! 


|E«IE40+ ( RGDD-40 . )/20 . * ( IE6O-IE40 ) 
I0I*I0I4S> ( RQDD-40 . )'20 .  KIOB6B-BOI40 ) 


560  IF( LINING . ME . 1 )  CO  TO  600 

COMPUTE  THE  AUERACE  THICKNESS  FOR  THE  CONCRETE  LINING 

WHEN  THE  ROD  IS  IETUEEN  4S  AND  SI 

TL-(IE-IF)/2. 


SET  UARIABLES  FOR  SHAFT  OR  TUNNEL  SEGMENTS 


60S  IFUTYPE.E0.2)  CO  TO  710 
TUNNEL  SEGMENT  DATA 
A( I,3S  )*BE 
A(I,40)*BE40 
A(  1, 41 1-BE60 
A(I,42)*B0B 
A(  1,43 )«BOB40 
A(  1,44 )*BOB60 
A(I,62)*UEB 
A(I,64)*PUATER 
All, 11)  ■  TL 

IFCnSTAKE.EQ.2)  URITE(LO,2710)  NTSEG,NREACH 
go  to  4«ee 


SHAFT  SEGMENT  DATA 
70S  l(I,29)*BE 
l(I.30)-8E4O 
8(1.31 )-BE60 
1(1,32) 'BOB 
I (1,33) *80840 
ICI.34)-BOBe0 
1(1,41  )*UEB 
8(I,43)*PUATER 
B(  1,11 )  •  TL 

IF(MSTAKE.EQ.2)  URIT£(L0.2711 )  NSSEG, NSHAFT 
GO  TO  4000 


nmtmtttmiimitiintmmmmmmimimtmttmmi 
SOFT  GROUND  TUNNELS  AND  SHAFTS 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

1000  BE'BF 
N*0 

ia-0 

TANPHI*TAN(PHIXPI/180. ) 


MINIMUM  SUPPORT  SIZE 


031100  00 
031110  00 
031120  00 
031130  00 
031140  00 
031160  00 
031100  00 
031170  00 
031180  00 
031100  00 
031200  00 
031210  00 
031220  00 
031230  00 
031240  00 
03 1250  00 
031260  00 
031270  00 
031280  00 
031290  00 
031300  00 
031310  00 
031320  00 
031330  00 
031340  00 
03 1350  00 
031360  00 
031370  00 
031380  00 
031390  00 
031400  00 
031410  00 
031420  00 
031430  00 
031440  00 
031450  00 
031460  00 
031470  00 
031480  00 
031490  00 
031500  00 
031510  00 
031520  00 
031530  00 
031540  00 
031550  00 

031560  00 

031570  00 

031580  00 

031590  00 
031600  00 
031610  08 
031620  00 
031630  00 
031640  00 

031650  00 

031660  00 
031670  99 


ooooooooooo 


COSTUN  List  inf,  (Coni  inued) 


T  SEQUENT 

^.10.1)  60  TO  asio 

Ull.TI ( PSQIl/ 1000  .)«(••  30S-0 . eunii ) 


‘ ( UC1 . LT . 0 . S )  uEl-O.S 
f(tTVPE.EQ.8)  60  TO  8S 


A(I,39)-1E 

aci. oii-tea 
ac!,ii)-tl 

A(l,63)aPS0Il 
A(I.64)*PUATER 
A(I.6«)-PT0TAL 
00  TO  8606 
8566  1(1,29  )-!E 
1(1,41  )*UEI 
1(1,11  )*TL 
1(I,36)»PS0IL 
1< 1,43 )»PUATER 
1(1,31 J-PTOTAL 

0  CHECK  IF  INPUT  THICKNESS  ACCEPTED  WHEN  UATER  PRESSURES 
8600  IF(I2.EQ.l)  00  TO  4000 

C  CHECK  IF  ASSURED  'IE'  IS  UITHIN  ONE  PERCENT  OF  CORPUTED 
IF ( 1E/IBEE . IT . 0. 99  .OR.  1E/1BEE.GT. 1 .01 >  CO  TO  1009 
IF(ITVPE.EQ.2)  GO  TO  860S 
IF(NSTAKE.EO.l)  URITE(LO, 1010 )  NTSEG.NREACH 
IF(RSTAKE.E0.3)  URITEd.0,2710 )  NTSEG.NREACH 
GO  TO  4000 

8606  IF01STAKE.EQ.1  i  URIT£( LO, 1011 )  NSSEG.NSHAFT 
IF(HSTAKE.E0.3)  URITE(L0.2711 )  NSSEG.NSHAFT 

GO  TO  4000 


tttoittiiuoitutitmmtmmmmimmitmnommmt 

CUT  AHD  COUER  ONLV 

ummummmmmummmimumunmumnumn 


8600  IFUTVPE.EG.8)  GO  TO  3300 
ELR0CK-AU.27) 
ELIRP-A(I,84) 

D10-AU.19) 

PERR-A( J. 26) 
DROCK-EliURF-ElROCK 
N10X.TRDATA(NREACH, 10 ) 
•F1UDT-TRDATA(NREACH,  11 ) 
8F1HT-TRDATA (NREACH , 12 ) 

I B0X8*TRDATA ( HREACH ,13) 

I DECK *A( 1,89) 
|BRACE*A(i,28) 

DTUN»EUSURF -ELAUG 

IF( 110X8. EG. 1)  GO  TO  3000 

lOXWDTj^FSUDT /N10X 

Sokto  M01 


(Cont inued) 


onono  o  o  oo  o  o  oo 


(  OS  1'1'N  1  is!  j  n-. *  ( Ci'ii  I  i  iiiu-il  ) 


IF  ( OUATEIt  •  QE  •  DTRNCH .  AND .  1 SUPPT  .EQ.fi.  >  GO  TO  3105 
IFCISUPPT. E0.fi. 0*. CROCK. LE.DRCOF)  PSOIL-0.9 

PUATER-0.0 

IFCUATPRI . EQ.0.9  >  GO  TO  3086 

IFCWATPRR .  GT  .0 . 0  )  PUATER*  <  UATPR I+UATPRR  ) /2 . 

IF CUATPRR . EG. 0 . 0  )  PUAT£R*0 . Ssu ATPR I t C DTRNCH-DUATER  )/T0TB0X 
3«86  PTOTAL-PSOIL+PUATER 

THICKNESS  CONFUTATION 
31M  NONENT*0. 1BPT0TALSSPANLII2. 

THICK* AXIAL/ < 24 . SALLCOM ) ♦SORT ( ( AXIAL/ ( 12.  FALLCON )  )**2. +24. IMOMENT/ 
1ALLC0M )/2. 

GO  TO  3110 

3106  THICK "AXIAL/ 18800. 

COSTUN  HININUH 

3110  IF(THICK.LT .8.0)  THICK-8.0 
AC I  REOUIRENENT 

IFCTHICK.LT. SPANLI12./25. )  THICK*12.ISPANL/2S. 

IFCJ.LT.S)  GO  TO  3030 
TEXUL* THICK/ 12. 

FINAL  OUERALL  BOX  DIMENSIONS 
TOTBOX*BFBHT+TROOF+TINUT+TINSB 
UDTB0X*BFBUDT+2 .*T£XUL  +  C  NBOX-1 >*TINUL 
BE*UDTBOX 

FINAL  TRENCH  DEPTH 
DTRNCH*DTUN+BFBHT/2 . ♦TINUT ♦TINSB/2. 

DSOIL*DTRNCH 

IF CDROCK.LT. DTRNCH)  DSOIL*DROCK 

DROOF-DTRNCH-TOTBOX 

CONSTR*6.0 

IF  C DROCK . GT . DROOF . AND . I SUPPT . NE . 6 )  BE-BE+CONSTR 

INITIALIZE 

UTUALE-0. 

UTSTRT  *0. 

UTANCH-0. 

UTSP-0. 

UTSPD-0. 

SPDLT-0. 

DSP*0. 

DSPD-0. 

SIDESL*0. 

DSLURY-0.0 

IFCNEX.E0.7)  GO  TO  3140 
IFCDROCK.LT. 0.1)  GO  TO  31S0 
IFCISUPPT.EQ.5)  GO  TO  3120 

SLURRV  UALL  SUPPORT  SVSTEN 


CONFUTE  LENGTH  OF  SLURRY  UALL 
IS  ROCK  LINE  ABOUE  TRENCH  BOTTOM 
IF CDROCK.LT. DTRNCH)  GO  TO  3117 
IS  ROCK  LINE  SHALLOUER  THAN  8  FT  BELOU  TRENCH 
IF C DROCK. LT. DTRNCH+8.  )  00  TO  3116 
IS  OROUNDUATER  TABLE  BELOU  TRENCH  BOTTOM 
IF CDUATER.GT. DTRNCH)  00  TO  3115 
IFC1UATER.EQ.1  .AND.  D10 .GT. 0.005 )  GO  TO  3115 
IFCD10.OT. 0.005)  GO  TO  3112 


e35740 

936750 

035760 

035770 

035780 

035790 

035800 

035810 

035820 

035830 

035840 

035850 

035860 

03S870 

035880 

035890 

035900 

035910 

035920 

035930 

035940 

035950 

035960 

035970 

035980 

035990 

036000 

036010 

036020 

036030 

036040 

036050 

036060 

036070 

036080 

036090 

036100 

036110 

036120 

036130 

036140 

036150 

036160 

036170 

036180 

036190 

036200 

036210 

036220 

036230 

936240 

036250 

936260 

036270 

936280 

936290 

936300 

036310 


0090 

0090 

0000 

0000 

0000 

0000 

0000 


0900 

0000 

0000 

000L 

0000 

0000 

0000 

0000 

0000 

0900 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

9900 

9900 

0900 

0900 

0990 

0900 

0090 

0099 

0099 


(Continued) 
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ooo 


f'OSlI'X  List  in;;  (('•■!!(  inn.  ii) 


Hi! 


3114 

m 

'3115 

'3116 

'3117 

3118 


UCIOHTED  CREEP  RATIO  DETERMINES  SLURRY  JAIL  PENETRATION 
CREPNN- (346.41. 65*  COHESN ) /COHESN 
00  TO  3113  .  „ 

CREPMH-4.3-1 .«*AL0G19CS0RT< 18.*A1S<PERM  ) )  ) 

DSLURV-  DTRNCH* 10 . 

CREEP*  ( 8 •  XOSLURY-DUATER-DTRNCH  ) /  ( DTRNCH-DUATER  > 

IF < CREEP. GT.CREPMN)  00  TO  3186 

DSLURV-  (CREPMN*(  DTRNCH-DUATER  )+DUATEROTRNCH  )/2 . 
DTIHP-ELSURF-ELINP 

IF ( DTIMP. GE. DSLURV .OR. D10 . LE. 6. 665  )  00  TO  3114 
SLURRY  UALL  PENETRATES  IMPERVIOUS  LAYER 
Hl-DTIMP-DUATER 
IF(H1.LT.6.  )  HI *6. 

H2-DTIMP-DTRNCH 

H2DN-H2 

H2UP*DTRNCH-DTIMP 
IF(DTIMP.GE.DTRNCH)  H2UP*8. 

IFCDTIMP.LT.DTRNCH)  H2DN-0. 

AA*4. 

B»-4.*ABS(H2)*4*H2 

CC-Hl**2.fH2**2.+2.*Hl*ABS(H2)42.*H2UP*(H2-Hl  )*CREPMN* ( H2-H1  )* 
(H2DN+H1  1 

PENIMP- ( -BB+SGRT (8B**2 . -4 . *AA*CC  >  >/2 . / AA 
IF< DTIMP. GE.DTRnCH)  DSLURV-DTIMP-PENINP 
IFCDTIMP.LT.DTRNCH )  DSLURY-DTRNCH+PENIMP 
MINIMUM  EMBEDMENT  FOR  ALL  SLURRY  UALLS  IN  SOIL 
IF  ( DSLURY .  LT . DTRNCH+ 16 .  )  DSLURV  •  DTRNCH-10 . 

IF ( DSLURV. GT.DROCK+2.  )  DSLURY*DR0CK+2 . 

GO  TO  3128 

MINIMUM  EMBEDMENT  FOR  ALL  SLURRY  UALLS  IN  SOIL 
DSLURV-DTRNCH+10. 

GO  TO  3128 

MINIMUM  EMBEDMENT  FOR  ALL  SLURRY  UALLS  IN  ROCK 
DSLURV -DR0CK*2. 

GO  TO  3128 

IS  ROCK  LINE  AT  LEAST  2  FT  ABOUE  ROOF  OF  BOX 
IF ( DROCK+2 .  .LT.DROOF)  CO  TO  3118 
DSLURY -DTRNCH+2. 

GO  TO  3128 
DSLURY -DROCK 42. 


SOLDIER  PILE/LAGGING  SUPPORT  SYSTEM 


3128  TRENPR-TRENPR+SURGE 
C  ANCHORS  AND/OR  STRUTS 

UTSTRT-8 . 8225*TR£NPR+0 . 8*BE 
ANCHDI *8 . 94XSGRT  <  TRENPR/ 1888 . J 
IFtANCHDI.LT. 8. 5)  ANCHDI*6.5 
UTANCH-PI* ( ANCHDI/2 . )**2 . *8 . 283*12 . 
IF ( IBRACE.EQ . 1 )  UTANCH-8. 

IF  (HR  ACE.  EG.  2)  UTSTRT-8. 

IF< I5UPPT .EG. 6 )  GO  TO  3196 

C  WALES 

UTUALE • SORT ( 5 . 6XTRENPR ) 
IFCUTUALE.LT. 13. )  UTUALE- 13. 
DUALE-SQRTC6. XUTUALE )-5 .8 
C  SOLDIER  PILES 

C  NON  DECKED  SOLDIER  PILES 


836326 

636336 

636348 

836366 

636368 

636376 

636388 

636396 

836468 

636418 

836426 

836436 

636446 

836458 

836468 

836478 

836488 

836498 

836566 

836518 

636526 

836538 

836548 

836558 

836568 

836578 

836588 

836598 

836688 

836618 

836628 

036638 

036646 

836658 

836668 

036678 

836680 

836698 

836708 

836718 

836728 

836738 

036748 

836758 

836768 

036778 

836788 

036798 

836898 

836818 

836828 

036838 

836848 

036850 

036860 

036870 

836880 

836898 


8080 

0880 

8988 

0908 

8980 


eees 

8800 

esee 

0008 


8888 

0008 

9008 

8888 

0800 

0880 

8080 

0000 

0000 

0000 

0000 

0008 

0008 

0008 

0000 

0008 

0000 

0000 

0088 

0000 

0008 

0000 

0080 

0080 

0008 

0000 

0000 

0008 

0800 


0000 

0808 

0000 

0800 

0090 

0800 

0000 

8890 

8888 

0099 

0809 

8880 

0809 

0009 

9886 

9999 

9999 
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COSiiiN  I  ist  ini'. 


UTSP  •S«RT<TR£NPR> 

JF(UT8P.LT.13. )  UTSP-13. 

D8P-80RT < 6. *UT$P >-5.0 

ifcideck.eq.0)  oo  to  312s 

C  DECKED  SOLDIER  PILES 

SPAXAL*  15 .  tBE/2 .  MS® . 

WTSPD*  SORT  ( TRENPR  )*0 .  222ISPAXA  L  /  1 000 .  *  ( 1 .  0-0 .  2S*  ( TRENPR/ 1009.) 
1**0.333) 

IFdJTSPD.  LT .  13.  )  UTSPDM3. 

DSPD*S0RT ( 6 . IUTSPD > -S . 9 
0  IS  ROCK  LINE  ABOUE  TRENCH  10TT0H 

IF  C  CROCK . LE . DTRNCH )  00  TO  31 24 
DP ILEH • 1 . /6 . (SORT C 1 . SIUTSPD ) 

IF(PHI .GT. 0. )  00  TO  3122 

SPDLT*DTRNCH+( 1 . 75ISPAXAL/ ( 0 . 5*P1 IDPILEH  )-6 .7IC0HESNIDPILEH/2. )/ 
1(2.  ICOHESN+DP I LEH/2 . IGAMMA  ) 

00  TO  3123 

3122  CNQ»£XP(PI*TAN(PHI IP 1/180. ) )*<TAN(PI/4.*PHI*PI/360. ) )I*2 
CNC* ( CNO-1 .  )/TAN ( PHI IPI/180 .  ) 

IFCPHI.CT.0. )  CNGAfl-0. 

IF(PHI.CT.10,  )  CNGAM-0. 3* ( PH  1-10 . ) 

1FCPHI.CT.29.  )  CNGAM* ( PHIXI2-335 . )/22.3 
IF (PHI .CT.3S. )  CNGAM-8.KPHI-3S. )*40. 

IFCPHI.GT.40.  )  CNOAH*32.X(PHI-40, )*B0. 

AA*CAMMAXTAN(PHItPI/180. ) 

BB-2 .  ICOHESN+DP I  LEH/2 .  IGAMMAICNQ 

CC- 1 . 3*C0HESN*DP  I  LEH/2 .  *CNC*0 . 6IGAMNA*  1 0 .  S  *DPILEi±l**£iCNGAN 

1-1 .75*SPAXAL/(0.5*PI*DPI LEH )  - - - - 

SPDIT  -  DTRNCH+  ( -88  ♦SORT  C  BBXX2-4 .  *AA*CC .» )/(2.*AA ) 

3123  IF(SPDLT.LT.DTRNCH*10.  )  SPDLT*DTRNCH*10. 

IF ( SPDLT . GT . DROCK*2 . )  SPDLT-DR0CK*2 . 

GO  TO  3125 

3124  SPDLT-DTRNCH+2. 

FOR  ROCK  DESIGN,  CHECK  IF  EXTERIOR  BOX  UALL  IS  SMALLER  THAN  DEPTH 
OF  SOLDIER  PILE  EMBEDDED  IN  UALL 

3125  IF (DROCK .GT . DROOF )  GO  TO  3130 

IF C DROCK* 10 . .GT . DROOF .AND . TEXUL . LT . DSP/ 12 . )  TEXUL*DSP/ 12 . 

IF ( TEXUL.LT . DSP D/ 12. )  TEXUL*DSPD/12. 

IN  ROCK.  EXCAUATED  TRENCH  UIDTH  EQUALS  BOX  UIDTH 
UDT80X*BFBUDT*2XTEXUL*<  NBOX-1 JXTINUL 
BE-UDTBOX 
GO  TO  3190 

COMPUTE  FINAL  EXCAUATED  TRENCH  UIDTH  FOR  BOX  IN  SOIL 
3130  IFCIDECK.EQ.0  )BE*BE*(2.XDUALE*2. SDSP  )/12. 

IF ( IDECK.EO . 1  )  BE'BE* (2 .IDUALE+2 . *DSPD )/12. 

GO  TO  3190 

SIDE  SLOPE  FOR  OPEN  CUTS  IN  SOIl" 

ALL  SLOPINQ  CUTS  EXCEPT  CLAVS  (DI0. LE.0. 905 )  UILL  BE  DEUATERED 
3149  IF(COHESN.GT .9.0 )  GO  TO  3150 
C  MATERIALS  CHARACTERIZED  BY  PHI  ONLY 
SIDESL«1.25/TAN(PHI*PI/180. ) 

00  TO  3199 

C  MATERIALS  CHARACTERIZED  BY  COHESION  ONLY  OR  By  PHI  AND  COHESION 


936900 

e369l9 

036929 

036930 

036940 

936950 

936960 

036970 

036989 

036990 

937000 

037010 

037020 

037030 

037040 

037050 

037060 

037070 

037080 

037090 

037100 

037110 

037120 

037130 

037140 

037150 

037160 

-03X170 

0371ST 

037190 

937200 

037210 

037220 

037230 

037240 

037250 

037260 

037270 

037280 

037290 

037300 

037310 

037320 

037330 

037340 

037350 

037360 

037370 

937380 

037390 

037400 

037410 

937420 

037430 

037440 

037450 

037460 

037470 


(Cont  iiuiod) 
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COSIl'N  I  i  s  t  ill}.',  ( Coin  i  mud  ) 


k:,cs)‘w 

AC1,87).UT6PD 

00  to  4HI 


CUT  AND  COUCH  SHAFTS 


3390  ICUTNC-1 
ISUPPT-4 
LlNING't 

C  REDUCE  UNIT  WEIGHT  OF  SOIL  DUE  *0  BULKING  DURING  BACKFILLING 
GANNA •GANNA/ 1 . 1 
GO  TO  1009 
4M  CONTINUE 

IF  < NSSTVP . EG . 3 . OR . NTSTVP . EQ . 3 )  RETURN 
C  CHECK  IF  FACE  INFLOW  INPUT  WHEN  GROUND  WATER  TABLE  BELOU  SEGMENT 
GI*A< 1,9 ) 

ELAUG- CELNPL+ELNPR )/2. 

BE«A(I,39) 

EL80TN«ELAUG-B£/2 . 

IF ( I SHAPE . EG. 3 >  ELB0TM»ELAUG-BE/4. 

IF (I TVPE . EG . 1 . AND . GI . GT . 0 . 0 . AND . ELBOTM . GE . ELUATR  )  UR ITE t LO , 3608 ) 
1NTSEG.NREACM 

m  _________________________________________________________________ 

C  CHECK  IF  SHAFT  SEGMENT  IS  WET  WHEN  WATER  TABLE  IS  BELOU  SEGMENT 
GI«B<1,9> 

IF ( ITVPE.EQ.2. AND.GI .GT.0.8.AND.ELNPB.GT .ELUATR  )  URITECLO.360S) 
1NSSEG.NSHAFT 
RETURN 
C 

S809  PUATER-62.4KELUATR-ELAUG) 

IF ( PUATER . LE . 8 . 881  )PWATER* . 081 
TL*TLIN 

BF*BF  +21TL* -  333 
BE40-BE 
BE68-BE 
BOB -BE 
BOB40*BOB 
B0B68-B0B 
A( 1,39 )*BE 
A?I,40)-IE40 
A(I,41  )«BE60 
A<  1,42  )»BOB 
A(  1, 43  )«BOB40 
A< 1,44  )*BOB60 
A (I, 64) "PUATER 
P(I,11)-TL 

5  mmtmiiumimtimiminntmmmmmmmmumi 

1818  FORMAT?/,  '  MM  WARNING  MM  —THICKNESS  INPUTED  FOR  SEGMENT', 

1  14,'  IN  REACH. 14,'  IS  LESS  THAN  IN  STANDARD  DESIGN.  INPUT  ICN 
20RED'  ) 

1811  FORMAT?/,'  *M*  WARNING  MM  —THICKNESS  INPUTED  FOR  SEGMENT', 

1  14.'  IN  SHAFT', 14,'  IS  LESS  THAN  IN  STANDARD  DESIGN.  INPUT  IGN 
30RED' ) 

2718  FORMAT?/,'  MM  WARNING  MM  - THICKNESS  INPUTED  FOR  SEGMENT  ',14 

1,'  IN  REACH', 14,'  APPEARS  TO  BE  INADEQUATE  FOR  WATER  PRESSURE.' 

„„  8 CtL  COMPUTED  THICK.  FOR  UATER  PRESSURE  USED') 

8711  FORMAT?/,'  Htl  WARNING  MM  —THICKNESS  INPUTED  FOR  SEGMENT  ',14 


e 38000 
838870 
038880 
038090 
038188 
038118 
838120 
038130 
038149 
038158 
038169 
038170 
038180 
038190 
038200 
038210 
038220 
038230 
038240 
038250 
038260 
038270 
038280 
038290 
038300 
838310 
038320 
038330 
038340 
038350 


0000 

0000 

0000 

9000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 


0000 


0000 

0000 


038370  0000 
038389  0009 


938400 

038410 

038420 

038430 

038440 

038450 

838460 

038470 


9999 

0090 

8090 

0800 

0000 

0009 

0800 

0099 
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COSTUN  List  ini;  (Con  l  i  mu'ii ) 


1,'  IN  SHAFT ',14,'  APPEARS  TO  IE  INADEQUATE  FOR  WATER  PRESSURE.  038480  0600 
%/>  COMPUTED  THICK.  FOR  UATER  PRESSURE  USED')  038490  0000 

ass*  f6rhat</ix,'u*s  reminder  **m  a  lining  thickness  was  input  for  aassaa  0000 

1  A  CUT  AND  COWER  BOX  IN  SEGMENT' , 14. '  IN  REACH',  14.'.  INPUT  IGNOR  038S10  0000 

BED' >  038680  0000 

I  FORMAT (/, '  ttt*  WARNING  MXtt  A  GROUND  UATER  INFLCU  UA$  SPECIFIC  038530  0000 
ID  IN  SEGAenT'.IS,  '  IN  REACH'  16.'  UKEN  WATER  TAKE  IS  BELOW  BASE  0  038640  0000 
2F  TUNNEL.  V'  INFLOW  IGNORED  IN  COST  COMPUTATIONS.')  038550  0000 

3606  FORMAT (/ (III  UARNINQ  t>»  WET  GROUND  SPECIFIED  IN  SEGMENT'.  038560  0000 

116.'  IN  $HAFT'.IS.'  WHEN  UATER  TABLE  IS  BELOW  SEGMENT.'/'  WET  GROU  038570  0000 

2ND  IGNORED  IN  COST  COMPUTATIONS.')  038580  0000 

mtmmimiimiiiiimimiimttmiiimiiimimitiuiw  038590  0000 

038600  0000 
038610  0000 

RETURN  038615 

END  038680  0000 

SUBROUTINE  STA8IL(I.A,8,CNP,SHAFT,TRDATA,NTSMAX,NSSMAX,NPMAX,N$MAX  038630  0000 

l.NTRMAX)  038635 

. 038640  0000 

. - .  038650  0000 

THIS  SUBROUTINE  SELECTS  THE  STA81LITV  NUMBER. STABILIZATION  METHOD,  038660  0000 
AND  EXCAWATION  METHOD  TO  BE  USED  IN  SOFT  GROUND  TUNNEL  AND  SHAFT  038670  0000 
SEGMENTS  038686  0000 

- 038690  0000 

_ _ _ _ _  _  _  _  _ _ _ _ _ _ « _ A')fl'7AA  AAA  A 

COMMON  /BASIC/  NSS.NTS  038710  0000 

COMMON  /A/  LO, LI, PM, ON .LIST (40 ), TITLE C 160 )  .STABEG, ITYPE  038780  0000 

COMMON  /F/  IERROR, ISTOP  038730  0000 

DIMENSION  A(NTSHAX,68  ), B(NSSMAX,43  ),CNP( NPMAX.8  ),SHAFT(NSMAX,33  >,  038740  0006 

1  TRDATA CNTRMAX, 83 )  038750  0000 

- - 038760  0060 

. 038770  0000 

DO  NOT  COMPUTE  A  STABILITY  NUMBER  IF  ONE  UAS  INPUT.  ALSO.  DO  NOT  038780  0006 

COMPUTE  ONE  FOR  PORTALS.  DUMMY  SHAFTS,  AND  CUT-AND-COWER  SEGMENTS.  038790  0000 

IF< ITYPE.EQ. 1 )  GO  TO  1006  038800  0000 

- . - .  038810  0000 

THIS  IS  A  SHAFT  SEGMENT  038880  0000 

CHECK  FOR  ROCK  OR  CUT  AND  COWER  SEGMENTS  AND  FOR  A  PORTAL  OR  038830  0000 

A  DUMMY  SHAFT  038840  0000 

NSSTYP*B( 1,15 )  038850  0000 

IF(NSSTYP.EQ.l)  GO  TO  S00  038860  0000 

IF(NSSTYP.EQ.3>  RETURN  038870  0000 

NSHAFT»B< 1,1 )  038880  0000 

NP0RT*SHAFT(NSHAFT,83)  038890  0000 

IF(NPORT.EQ.l)  RETURN  038900  0000 

ISHAPS*SHAFT(NSHAFT,16)  038910  0000 

IF ( ISHAPS.LT. 1)  RETURN  638980  0000 

BE  •1(1.89)  038930  0000 

STABNO*B( 1 ,84 )  038940  0060 

IFtSTABNO.GT .0.01 )  00  TO  1830  038950  8609 

NSSEG  *8(1.8)  038960  0660 

MEX  *8< 1 ,7 )  038970  0000 

ELWATR-BII.13)  038980  0000 

D10  *8(1,16)  038990  0000 

COHESN*B( 1, 17  )  039000  9000 

GAMMA  *1(1,18)  039010  9000 

PHI  *B(X,19)  939986  0900 

IUATER*I( 1,21 )  039030  0900 
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m$ta»%0 

CALL  STAINU(COHESN,ELAUG,ELSURF,ELUATR,GAMMA, ISHAPE, ISHAPS, ITVPE, 

1  PHI . SHASTA. S IGNAT, ST A8NM ,  IE , (1ST A»T ,  GANMAA ,  GAMMAB , GAFMAC . P . PSHAP E , 

8  SEODEP ) 

STABNO* STAINM 

C  CHECK  UHETHER  A  PAEPEAAED  STABILIZATION  METHOD  UAS  INPUT.  THE 
C  PREFERENCE  COULD  IE  FOR  USE  OP  NO  METHOD  AT  ALL. 

IF(MUST.CE.3>  GO  TO  1590 

C  NO  METHOD  IS  PREFERRED  IV  USER.  CHECK  IP  SEGMENT  CAN  IE  EXCAUATED. 

040100  9009 

C  THE  PREFERRED  METHOD  IS  DEUATERING 
1010  MSTA8*2 
MSTABT*2 

CALL  STABNU ( COHESN, ELAUG .ELSURF .ELUATR, GAMMA . ISHAPE . I SHAPS . IT YPE, 

1  PHI. SHRSTR.SIGMAT.STABNN, BE, MSTABT, GANMAA, GAMMAB, GAMNAC.F.FSHAFE, 

2  SEGDEP  > 

GO  TO  1030 

C  THE  PREFERRED  METHOD  IS  COMPRESSED  AIR 
101S  CALL  AIRPRS(AIRPR,D19,£LAUG,£LUATR,IERR0R,ITYFE,PhI,SHRSTR,SIGHAT, 
1STABNM , STABNO . LO , NREACH.NSNAFT . NSSEG , NTSEG  ) 

MSTAB*1 

1030  IF( ITYPE.EQ. 1 )  A< 1 , 30 )*STABNM 
IF(ITYPE.EQ.l )  Ad, 31  ).MSTAB 
IF (ITYPE.EQ. 1 )  A< 1 ,33 )*AIRPR 
IF( ITYPE.EQ. 2  )  B( 1,24  )*STABNM 
IF (ITYPE.EQ. 2)  8(1,25  )*MSTAB 
IF ( ITYPE . EQ.2 )  B( 1,2?  )*AIRPR 

C  CHECK  UHETHER  THE  SEGMENT  CAN  BE  EXCAUATED  AFTER  STABILIZATION 
1035  IF ( STA8NM. LE. S.  . AND. PHI . LT . 29 .  .OR.  STABNM.LE.?.  .AND. PHI .GE. 29.  ) 
1  GO  TO  1059 

C  SEGMENT  CANNOT  BE  EXCAUATED  EuEN  AFTER  USING  A  STABILIZATION  METH. 
IERROR-1 

IF( ITYPE.EQ. 1  )  URITE(LO.2000)NTSEG,NREACH 
IF ( I TYPE .EQ.2)  WRITE ( LO. 3000 ) NSSEG. NSHAFT 
RETURN 

C  SEGMENT  CAN  NOU  BE  EXCAUATED.  STORE  THE  NEU  STABILITY  NUMBER 
1050  STABNO*STABNM 
GO  TO  1800 


SEGMENT  CAN  BE  EXCAUATED  WITHOUT  BENEFIT  OF  STABILIZATION 
IF  USER  WILL  ALLOW  A  STABILIZATION  METHOD  AND  STABILITY  NUMBER  IS 
HIGH.CHECK  UHETHER  USE  OF  STABILIZATION  UILL  DECREASE  STABILITY 
NUMBER  BY  AT  LEAST  1.0 


1200  IF ( STABNO. LE. 4.  )  GO  TO  1300 
IF (MUST ,GT. 1  )  GO  TO  1300 
C  USER  UILL  ALLOW  STABILIZATION  TO  BE  USED 
IF(D10.LE.  .005)  GO  TO  1215 

AIRPR-0. 

IF (ELAUC.GE. ELUATR  .OR . I WATER .EQ.0  )  GO  TO  1205 
IF(PERH. LT .0.  . AND. ABStPERM ) .GT. 0.0006)  GO  TO  1209 
IF(PERM. GT .0 .  .AND.  D10.GT.0.08)  GO  TO  1209 
C  THE  FIRST  CHOICE  METHOD  IS  GROUND  INJECTIONS 
1205  HSTAB"3 

COHSGI *20000 . *SQRT C 1 0 . XABS ( PERM  > ) 

STABNN-SIGMATASHRSTRyCOHSGI  ) 

IF(STAINO-STABNM.GE.l.  )  GO  TO  1235 

C  DECREASE  IN  STABILITY  NUMBER  CAUSED  BY  USE  OF  GROUND  INJECTIONS  IS 


039620 
039630  0900 
039640  0000 
039650  0000 
639660  9000 
039670  0000 
039689  0000 
039690  9000 
039700- 


040110 

040120 

040130 

040140 

040150 

040160 

040170 

040180 

040190 

040200 

040210 

040220 

040230 

040240 

040250 

040260 

040270 

040280 

040290 

040300 

040310 

040320 

040330 

040340 

040350 

040360 

040370 

040380 

940390 

040400 

040410 

040420 

040430 

040440 

040450 

040460 

040470 

040480 

040490 

040500 

040510 

940520 

940530 

040540 

940550 

940S60 

949570 

040580 


0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 

00eo 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 


0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

9990 

0990 

0000 
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C  SMALL.  IF  COMPRESSED  AIR  1$  ACCEPTABLE, CHECK  IF  IT  QIUES  GREATER 

C  DECREASE. 

IFCPERR.LT. S.  .AND.  ABS(PERH).GT.0.4)  GO  TO  1235 
IFCPCRH.GT.0.  .AND. DIS. OT. 2. )  GO  TO  1236 
I F ( ELAUQ . GE . ELUATR >  GO  TO  1207 
IFCELWATR-ELAUO.GT. 115. !  GO  TO  1235 
C  COMPRESSED  AIR  IS  AN  ACCEPTABLE  NETHOD. 

IBS?  CALL  A  IRPRS<AIRPR,Dlii.ELAUG,ELWATR,IERROR,  ITVPE,  PHI,  SHRSTR,  SI  GHAT, 
18TABNH , STABNO, LO , NREAU, , NSHAFT , NSSEG , NTSEG ) 

HSTAB-l 
GO  TO  1236 

12«9  IF CSEGDEP. LE. 150. )  CO  TO  1210 

GROUND  WOULD  BE  DEWATERED  EXCEPT  THAT  SEGMENT  IS  DEEPER  THAN  IS 
USUALLY  DESIRED.  TRY  GROUND  INJECTIONS  FIRST.  IF  STABILITY  NUMBER 
DOES  NOT  CHANGE  BY  MUCH, TRY  DEUATERING  INSTEAD. 

COHSGI *20000 . ISORT C 1 0 . *ABS  C PERM ) ) 

STABNH-SIGHAT/CSHRSTR+COHSGI ) 

IFCSTABNO-STABNH.GE.l.  )  GO  TO  1235 
C  THE  PREFERRED  METHOD  IS  DEUATERING 
1210  HSTAB«2 
HSTABT-2 

CALL  STABNUCCOHESN, ELAUG.ELSURF, ELWATR, GAMMA, ISHAPE, ISHAPS. ITVPE, 

1  PHI . SHRSTR, SIGMAT, STABNM, BE , MSTABT, GAMMAA, GAMMAB, GAMMAC , F, FSHAPE, 

2  SEGDEP ) 

GO  TO  1235 

C  THE  PREFERRED  METHOD  IS  COMPRESSED  AIR 
1215  MSTAB-1 

CALL  AIRPRSC AIRPR,D10,£LAUG, ELUATR, IERROR, ITVPE. PHI, SHRSTR. SIGMAT, 
1  STABNM, STABNO, LO.NREACH. NSHAFT, NSSEG, NTSEG ) 

C  CHECK  FOR  STABILITY  NUMBER  DECREASE  OF  AT  LEAST  1.0 
1235  IFCSTABNO-STABNH.GE.l.)  GO  TO  124S 
C  STABILITY  NUMBER  DECREASE  IS  LESS  THAN  1.0  FORGET  STABILIZATION 
C  METHOD  AND  EXCAUATE  USING  ORIGINAL  GROUND  CONDITIONS 
MSTAB*0 

ATfiPD.A 

IFCITYPE.EQ.l)  GO  TO  1240 
URITECLO.3010)  NSSEG, NSHAFT 
B Cl, 24)* STABNO 
B(  1,25  )*HSTAB 
BC 1,27 )*AIRPR 
GO  TO  1800 

1240  URITECLO.2010)  NTSEG, NREACH 
ACI,30)*STABNO 
AC  1,31  )*HSTAB 
AC  1,33  )*AIRPR 
GO  TO  1800 

C  STABILITY  NUMBER  DECREASED  BY  AT  LEAST  1.0 
C  METHOD  AND  NEU  STABILITY  NUMBER 
1246  IFCHSTAB.GT.l)  AIRPR-0. 

IFC ITVPE. EG. 1)  GO  TO  12S0 
BC 1.24)* STABNM 
BCI.25).MSTAB 
BCI,27)*AIRPR 
STABNO«STABNM 
00  TO  1800 
1260  A(I,30).$TABNM 
AC  1,31  )*MSTAB 
ACI,33)«AIRPR 


USE  STABILIZATION 


0405S0 

040600 

040610 

040620 

040630 

040640 

040650 

040660 

040670 

040680 

040690 

040700 

040710 

040720 

040730 

O40-M0 

040750 

040760 

040770 

040780 

040790 

040800 

040810 

040820 

040830 

040840 

040850 

040860 

040B70 

040880 

040890 

040900 

040910 

040920 

040930 

040940 

040950 

0409S0 

040970 

040980 

040990 

041000 

041010 

041020 

041030 

041040 

041050 

041060 

041070 

041080 

041090 

041100 

041110 

041120 

041130 

041140 

041150 

041160 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 


0000 


0000 


0000 

0000 

0000 

0000 

0000 

0000 


9000 

0000 

0000 

0000 

0990 


0000 

0090 

0000 

0000 
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STAINO -STAIN* 

SO  TO  till 

13M  IFCTVPC.EQ.l)  I.3«  >-STA»N0 
iF<:TVPC.co.a>  bu^j-stabno 
00  TO  1B00 

A  PREFERRED  STABILIZATION  METHOD  WAS  INPUT.  THE  PREFERENCE  COULD 
•E  FOR  USE  OF  NO  METHOD  AT  ftU. 

CRH  THE  SEQUENT  IE  EXCAUATED  WITHOUT  STABILIZATION 
LSM  IF(STAlN0.LE.9.  .AND. PHI.LT. 29.  .0R.STAIN0.LE.7.  . AND. PHI .0E.29.  ) 

1  00  TO  1690 

Cnicic’lF’usiR  WILL  ALLOW  SOME  METHOD  TO  SE  USED. 

IF(MSTAI.GT.S)  00  TO  1592 
IERROR-1 

IF< ITVPE.EO. 1 )  WRITE! LO. 2950 )  NTSEO.NREACH 
IF( ITVPE.E0.2  )  URITE<LO,39S0)  NSSEO.NSHAFT 
00  TO  1539 

SEGMENT  CANNOT  BE  EXCAUATED  WITHOUT  STABILIZATION.  CHECK  WHETHER 
USERS  PREFERRED  METHOD  IS  ACCEPTABLE 
1592  IF ( ITYPE.EQ.2  )  GO  TO  1595 
IF(MSTAC.EO. 1 )  GO  TO  1510 
METHOD  IS  UNACCEPTABLE 
I ERROR *1 

WRITE CLO, 3030 )  NSSEG.NSHAFT 
RETURN 

1595  IF  <  (1STAC .  EO .  1 )  GO  TO  1519 
METHOD  IS  UNACCEPTABLE 
IERROR-1 

URITE! LO. 2030 J  NTSEO.NREACH 
RETURN 

STABILIZATION  METHOD  INPUT  IS  ACCEPTABLE 
CHECK  FOR  PREFERRED  METHOD 

1519  IF(MSTA8.EQ.l )  GO  TO  1520 
IF(MSTAB.E0.3)  GO  TO  1518 

C  THE  PREFERRED  METHOD  IS  DEWATERING 
MSTABT-2 

CALL  STABNUCCOHESN.ELAUG,ELSURF,ELWATR.OAMMA,ISHAPE,ISHAPS,ITYPE, 

1  PHI.SHRSTR.SIQMAT.STABNN.IE.MSTABT.GANMAA.GANMAB.GAMNAC.F.FSHAPE, 

2  SEGDEP) 

00  TO  1525 

C  THE  PREFERRED  METHOD  IS  GROUND  INJECTIONS 
1518  COHSOI >20000 . *SORT ( 10 . XABS ( PERN ) ) 

STABNN-SICNAT/ ISHRSTR+COHSGI ) 

00  TO  1525 

C  THE  PREFERRED  METHOD  IS  COMPRESSED  AIR 

1520  IFCITYPE.EO.l )  AIRPR-AU.33) 

IF t ITVPE.EO. 2)  AIRPR>B< 1,27  ) 

C  IF  AIR  PRESSURE  IS  INPUT.USE  IT  AND  COMPUTE  STABILITY  NUMBER. IF 
C  NONE  IS  INPUT. COMPUTE  AIR  PRESSURE 
IFtAIRPR.OT .0.  )  GO  TO  1622 

CALL  AIRPRStAIRPR.DlO.ELAUC.ELUATR.IERROR, ITYPE.PHI.SHRSTR.SIGMAT, 
1STA»NM,STABN0.10,NREa6h,NSHAFT,NSSE0,NTSEG) 

00  TO  1525 

1522  STABNM- (SIQMAT-AIRPRS144. VSHRSTR 
C  CHECK  WHETHER  SEGMENT  CAM  BE  EXCAUATED  AFTER  STABILIZATION 


041170 

041180 

041199 

041200 

041210 

941220 

041239 

941249 

941259 

941269 

941279 

041280 

941299 

041390 

041310 

041320 

041330 

941340 

041350 

041360 

041370 

041380 

041390 

041400 

041410 

041420 

041430 

041440 

041450 

041460 

041470 

041480 

041490 

041500 

041510 

041520 

041530 

041540 

041550 

041560 

041570 

041580 

041590 

041600 

041610 

041620 

041639 

941640 

041650 

041660 

041670 

041680 

041699 

041799 

941710 

041729 

041739 

941740 


0900 

0209 

0900 

0990 

9999 

9999 

0999 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

9000 

0000 

9000 

9000 

0000 

9000 

0900 

0000 


0000 

0000 

0000 

0000 

0000 


0000 

0000 

0009 

9000 

0000 

0090 

0000 

9000 

9000 

9000 

9000 

9900 
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IMS  IF<$TAINM.LE.9.  .AND.PHI.LT.39.  .OR.STABNM.LE.?.  .AND. PHI  .GE.29.  ) 

1  00  TO  1630 

;  SfgC^CANNOT  IE  EXCAVATED  EVEN  AFTER  USING  A  STABILIZATION  nETh. 

fpdTVPE.EQ.l)  WRITEUO.2035>NTSEG,NREACH 

IFdTVPE.EQ. 2)  WRITE CLO. 3135 )NSSEG,NSHAFT 

IFdTVPE.EQ.  1 )  Ad,30>*STAINfl 

IF( ITVPE.EQ. 1 >  At I,33)*AIRPR 

IF < I TYPE. EO. 2 )  BC 1.24 )-STABNM 

IF< ITVPE.E0.2 )  BtI,27)*AIRPR 

00  TO  1830 

i  SEGMENT  CAN  NOW  BE  EXCAVATED 
1530  IFdTVPE.EQ.  t )  00  TO  1S35 
Bd.84)*STABNM 
BtI,27)-AIRPR 
STABNO-STAINM 
GO  TO  1809 
1536  At  1. 30  )-STABNM 
AtI.33)*AIRPR 
STABNO-STABNM 
GO  TO  1800 

SEGMENT  CAN  BE  EXCAVATED  WITHOUT  BENEFIT  OF  STABILIZATION  NETHOD 

CHECK  IF  NO  NETHOD  IS  TO  BE  USED 
1600  IFCMSTAB.EQ.0 )  GO  TO  1640 

CHECK  WHETHER  USER  REQUIRES  STABILIZATION  NETHOD  TO  BE  USED 
IF C MUST. EG- 4 )  GO  TO  1610 

STABILIZATION  IS  NOT  REOUIRED . FORGET  STABILIZATION  AND  EXCAUATE 
USING  THE  ORIGINAL  GROUND  CONDITIONS. 

IFdTVPE.EQ. 1)  GO  TO  1605 
URITE(L0,3015)  NSSEG.NSHAFT 

NSTAB-0 

B< 1.24 )*STABNO 
B< 1,25 )-MSTAB 
GO  TO  1800 

1605  URITE(LO,201S )  NTSEG.NREACH 
NSTAB-0 

Ad.  30  l-STABNO 
AC  1,31  )-NSTAB 
GO  TO  1800 

USER  REQUIRES  USE  OF  A  STABILIZATION  METHOD.  CHECK  IF  SPECIFIED 
METHOD  IS  ACCEPTABLE.  IF  METHOD  IS  UNACCEPTABLE, BASE  COSTS  ON 
UNSTABILIZED  GROUND 
1610  IFdTVPE.EQ.  1)  GO  TO  1615 

IFtMSTAC.EQ.l)  GO  TO  1620 

URITE(L0.3020)  NSSEG.NSHAFT 
GO  TO  1800 

1615  IFtMSTAC.EQ.l)  GO  TO  1620 
WRITE CLO, 2020)  NTSEG.NREACH 

GO  TO  1800 

STABILIZATION  METHOD  INPUT  IS  ACCEPTABLE 
CHECK  FOR  PREFERRED  METHOD 
1620  IF(MSTAB.EQ.l)  GO  TO  1630 

1FCMSTAB.EQ.3)  QO  TO  1625 


041753 

041760 

041770 

041780 

041790 

041800 

041810 

041820 

041830 

041840 

041850 

041860 

041870 

041880 

041890 

041900 

041910 

041920 

041930 

041940 

041950 

041960 

041970 

041980 

041990 

042000 

042010 

042020 

042030 

042040 

042050 

042060 

042070 

042080 

042090 

042100 

042110 

042120 

042130 

042140 

042150 

042160 

042170 

042180 

042190 

042200 

042210 

042220 

042230 

042240 

042250 

042260 

042270 

042280 

042290 

042300 

042310 

042320 


eeee 

oooo 

oooo 

oooo 

eoee 

oooo 

eooo 

oooo 

oooo 

oooo 


oooo 

eeee 

eoee 

oooo 

oooo 

oooe 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

eooo 

oooo 

oooo 

eooo 

oooo 


oooo 

oooo 

oooo 

eoee 

oooo 

oooo 

0000 

eooo 


eooo 

oooo 

eeee 


eeee 

eooo 


eoee 

eoee 

eeee 

oooo 

oooo 

oooo 

eeee 

eoee 

eeee 

eooo 

eooo 

oooo 
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:  THE  PREFERRED  METHOD  IS  DEWATERING 

MSTAIT>8 

CALL  STABNUI COHESN.ELAUG.ELSURF.ELUATR, GAMMA, ISHAPE. ISHAPS, IT-PE, 

1  PHI,SH8STR,SIGMAT,STA1NH,BE,MStABT,GAMMAA,GAMMAB,GAMMAC,F,FSHAPE, 

I  SCGDCP) 

CO  TO  1635 

:  THE  PREFERRED  METHOD  IS  GROUND  INJECTIONS 

IMS  COHSCI  *80000 .  SSORT  ( 10 .  t  ABS  C  PERM ) ) 

ST ABNM*  S I CHAT / ( SHRSTR+COHSG I ) 

CO  TO  1S3S 

:  THE  PREFERRED  METHOD  IS  COMPRESSED  AIR 

1S30  IFdTVPE.EO.l )  AIRPR*A( 1,33  ) 

IF ( ITVPE.EO.B )  AIRPR*B( 1,2? ) 

J  IF  AIR  PRESSURE  IS  INPUT.USE  IT  AND  COMPUTE  STABILITY  NUMBER. IF 
:  NONE  IS  INPUT, COMPUTE  AIR  PRESSURE 

IF(AIRPR.GT .0. )  00  TO  1632 

CALL  AIRPRS (AI RPR, D10,£LAUG,£LU ATR.t ERROR, ITYPE,PHI, SHRSTR, SIGNAT, 
1STABNM, STABNO, LO , NREACH , NSHAFT , NSSEC » NTSEG ) 

00  TO  1635 

1632  STABNM* (  SIGMAT-AIRPRI144 . ) /SHRSTR 

I  CHECK  FOR  STABILITY  NUMBER  DECREASE  OF  AT  LEAST  1.0 
1635  IF(STABNO-STABNM.GE.l. >  GO  TO  1640 

:  stability  number  did  not  decrease  by  at  least  i.e  inform  user 

IF(ITVPE.EQ.l )  URITE(LO,2025 )  NTSEG, NREACH 
IF ( ITYPE.EQ.2 )  URITECLO.3025)  NSSEG, NSHAFT 
1640  IFdTYPE.EQ.l )  A(I.30)«STA8NM 
IF(ITYPE.EQ.l)  A<I,33 )*AIRPR 
IF(ITYPE.EQ.2)  Bd.24 J-STABNM 
IF (ITYPE.EQ.2)  B( 1 ,27 )*AIRPR 
STABNO* STABNM 

tmiomiimmmmtommmiitmmmtimtmtmiim 

CHECK  FOR  ACCEPTABLE  EXCAUATION  METHOD  FOR  THE  STABILITY  NUMBER 
TO  BE  USED.THE  CHECK  FOR  COMPATIBILITY  WITH  SHAPE  IS  IN  SUB  INPUT 
1800  IFdTVPE.EO.l  )G0  TO  1805 
IF(MEX.EQ.4 )  GO  TO  1830 
IF(MEX.E0.3  . AND. STABNO. LE. 6. )  CO  TO  1830 
METHOD  IS  UNACCEPT ABLE. SELECT  HAND  METHODS  INSTEAD 
MEX*4 
B< 1,7  )*MEX 

WRITE (LO, 3040 )  NSSEG, NSHAFT 
GO  TO  1830 


IF (HEX-4 )  1820,1830,1810 
RIPPER  EXCAUATION 


IF(STABN0.LE.7. )  GO  TO  1830 
GO  TO  1825 
MOLE  EXCAUATION 
IF ( STABNO. LE. 6. )  GO  TO  1830 

MOLE  OR  RIPPER  ARE  UNACCEPTABLE, SELECT  HAND  INSTEAD 
MEX*4 

Ad.7)*MEX 

WRITE (LO, 2040 )  NTSEG. NREACH 

fJ^SHSfSJJ’JSiJJS*!!*?!**!*!************************************ 

ILSJ*5IkII?..3yn,ER  IS  LOU,  SHIELD  IS  UERV  THIN  AND  LEAUES  LITTLE 

S5fiCl-F0H*MCKFILL  >EHIND  THE  LINING  OR  SUPPORT 

BOB*BE>1.0 

IF (8TABN0.LT. 2, )  BOB*BE 
IF(ITVPE.EQ.l)  A( 1,48  )*BOB 


042330 

042340 

042360 

042360 

042370 

042380 

042390 

042400 

042410 

042420 

042430 

042440 

042450 

042460 

042470 

042480 

042490 

042500 

042510 

042520 

042530 

042540 

042550 

042560 

042570 

042580 

042590 

042600 

042610 

042620 

042630 

042640 

042650 

042660 

042670 

042680 

042690 

042700 

042710 

042720 

042730 

042740 

042750 

042760 

042770 

042780 

042790 

042800 

042810 

042820 

042830 

042840 

042850 

042860 

042870 

042880 

042890 

042900 


(Continued ) 


r 


oooo 
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COSTUN  Listing  ( Con  t  i  lined) 


IP ! ITVPE .EQ . S )  KI.32  )*B0B 
RETURN 

c  tttitismimtititmmnmimmmmumiiimmiMmui 

2008  FORMAT!/, '  FATAL  ERROR,  STABILITV  NUMBER  IN  SEGMENT', IS.  '  IN  RE 
IACN',15.'  IS  TOO  HIGH  TO  ALLOW  EXCAUATION, EUEN  AFTER  STA1ILIZATI0 
2H  * ) 

sen  FORMAT!/, '  MM  REMINDER  MM  USE  OP  A  STABILIZATION  METHOD  IN 
1SEGMENT ' ,  IS, '  IN  REACH', IS.'  IS  NOT  UERV  EPPECTIUE,  NO  METHOD  USE 
2D' ) 

2815  FORMAT!/,'  *M*  REMINDER  MM  USER  PREFERRED  STABILIZATION  NETH 
10D  IN  SEGMENT', IS,'  IN  REACH', IS.'  IS  NOT  REQUIRED.  METHOD  NOT  US 
2ED'  ) 

2020  FORMAT!/, '  till  WARNING  MM  USERS  STAB.  METHOD  IN  SEGMENT '.IS, 

1  '  IN  REACH'. IS, '  IS  NOT  ACCEPTABLE  NOR  REQUIRED,  METHOD  NOT  USE 
2D' ) 

2825  FORMAT!/.'  MM  REMINDER  MM  USE  OF  STABILIZATION  METHOD  IN  SEG 
1NENT' , IS, '  IN  REACH', IS,'  IS  NOT  UERV  EFFECTIUE,  METHOD  USED  ANVU 
2AV') 

2838  FORMAT!/.'  FATAL  ERROR.  USERS  STAB.  METHOD  IN  SEGMENT '. IS, '  IN  R 
2EACH' , 15, '  IS  NOT  ACCEPTABLE  AND  STABILITV  NUMBER  IS  TOO  HIGH') 

2835  FORMAT!/,'  FATAL  ERROR,  USERS  STAB-  METHOD  IN  SEGMENT' , IS. '  IN  R 
1EACH',I5.'  IS  NOT  EFFECTIUE  AND  STABILITV  NUMBER  IS  TOO  HIGH') 

2848  FORMAT!/,'  MM  REMINDER  MM  CONDITIONS  IN  SEGMENT' .  IS,  '  IN  REA 
ICH',15,'  REQUIRE  USE  Of  HAND  EXCAUATION  RATHER  THAN  INPUT  METHOD') 

28S8  FORMAT!/,'  FATAL  ERROR,  STABILITV  NUMBER  IN  SEGMENT ',15, '  IN  REA 
ICH'.IS,'  REQUIRES  GROUND  STABILIZATION,  BUT  IT  WAS  SPECIFIED  NO  M 
2ETH0D  BE  USED'  ) 

3888  FORMAT!/,'  FATAL  ERROR,  STABILITV  NUMBER  IN  SEGMENT', IS.  '  IN  SH 
1AFT',I5, '  IS  TOO  HIGH  TO  ALLOW  EXCAUATION, EUEN  AFTER  STABILIZATIO 
2N' ) 

3818  FORMAT!/,'  MM  REMINDER  MM  USE  OF  A  STABILIZATION  METHOD  IN 
1 SEGMENT ' , 15, '  IN  SHAFT'. IS, '  IS  NOT  UERV  EFFECTIUE,  NO  METHOD  USE 
2D' ) 

3815  FORMAT!/,'  MM  REMINDER  MM  USER  PREFERRED  STABILIZATION  METH 
10D  IN  SEGMENT, IS,'  IN  SHAFT', IS,'  IS  NOT  REQUIRED,  METHOD  NOT  US 
2ED' ) 

3828  FORMAT!/,'  MM  WARNING  MM  USERS  STAB.  METHOD  IN  SEGMENT', IS, 

1  '  IN  SHAFT', 15. '  IS  NOT  ACCEPTABLE  NOR  REQUIRED,  METHOD  NOT  USE 
2D'  ) 

MM  REMINDER  MM  USE  OF  STABILIZATION  METHOD  IN  SEG 
IN  SHAFT'. 15, '  IS  NOT  UERV  EFFECTIUE,  METHOD  USED  ANVU 


3825  FORMAT!/, 
IMENT',15, 
2AV'  ) 

3838  FORMAT!/, 
1HAFT'  15. 
3835  FORMAT!/, 
1HAFT',I5, 
3848  FORMAT!/, 


FATAL  ERROR,  USERS  STAB.  METHOD  IN  SEGMENT'  15, '  IN  S 
IS  NOT  ACCEPTABLE  AND  STABILITV  NUMBER  IS  TOO  HIGH' ) 
FATAL  ERROR.  USERS  STAB.  METHOD  IN  SEGMENT ', IS  '  IN  S 
IS  NOT  EFFECTIUE  AND  STABILITV  NUMBER  IS  TOO  HIGH') 

MM  REMINDER  *1**  CONDITIONS  IN  SEGMENT'  IS.  '  IN  SHA 
IFT',15,'  REQUIRE  USE  OF  HAND  EXCAUATION  RATHER  THAN  INPUT  METHOD') 
3858  FORMAT!/,'  FATAL  ERROR,  STABILITV  NUMBER  IN  SEGMENT'  15, '  IN  SHA 
IFT'.IB, '  REQUIRES  GROUND  STABILIZATION,  BUT  IT  WAS  SPECIFIED  NO  M 
2ETH0D  BE  USED' ) 


RETURN 


8*2919 

842928 

8*2938 

9*2949 

942959 

942968 

942978 

942989 

942999 

943999 

943919 

943828 

943938 

843849 

843859 

843869 

843878 

943989 

943998 

943199 

943119 

943129 

943139 

843149 

943159 

843160 

043170 

043180 

043190 

043200 

043218 

043220 

043230 

943240 

043259 

043260 

043270 

043280 

043290 

043300 

043310 

043328 

043338 

043348 

043358 

843369 

843378 

843389 

843398 

943499 

843418 

943429 

043439 

943449 

943458 

943455 


9999 

9909 

0909 

0099 

0098 

0980 

0999 

0000 


9909 


0000 

0000 

0000 

0800 

0000 

0000 

0008 

0000 

0000 

0000 

0000 

0009 

0000 

0000 

0000 


0000 

0000 

0000 


0000 

0000 

0000 

0000 


0000 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0090 

0808 

8889 

0889 


(Cont inued) 
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END  043460  6000 

SUBROUTINE  STABNUfCOHESN.ELAuG.ELSURF.ELUATR.GAMMA.ISHAPE.ISHAPS,  043470  0000 

1  ITYPE. PHI. SHRSTR.SICMAT.STABNN, BE. MSTABT.GAMMAA, GAMMAB. GAHMAC.F,  043480  0000 

. mm  mi 

THIS  ""SUBROUTINE  COMPUTES  THE  INITIAL  STABILITY  NUMBER  BASED  only  043520  0000 

ON  INPUT  GROUND  PARAMETERS  AND  ALSO  COMPUTES  IT  IF  STABILIZATION  043530  0000 

IS  BY  DEWATERING  $43540  $«$$ 

- 043560  0000 

PI-3. 14159  043570  0000 

$INPHI-SIN(PHI*P1/180. >  043580  0000 

TANPHl-TAN(PHl*PI/l80.  >  043590  0000 

C  CHECK  WHETHER  THIS  IS  THE  SECOND  COMPUTATION  FOR  THIS  SEGMENT. IF  043600  0000 

C  SO, CAN  BYPASS  MOST  OF  THIS  SUBROUTINE.  043610  0000 

IFC1STABT.EQ.2)  GO  TO  1150  043620  0000 

C  COMPUTE  STABILITY  NUMBER  FOR  UNSTABILIZED  GROUND  043630  0000 

C  CHECK  FOR  GUT  ABOUE  GROUND  SURFACE  043640  0000 

IF(ELUATR.GT.ELSURF)  GO  TO  1050  043650  0000 

C  CHECK  FOR  SEGMENT  BELOW  GUT  043660  0000 

IF(ELAUG.LT.ELUATR)  GO  TO  1010  043670  0000 

C  GUT  IS  BELOW  SEGMENT  043680  0000 

SIGGAH-SEGDEP*GANNA  043696  0000 

IF ( SEGDEP ■ LE . 2 . *BE )  GO  TO  1000  043700  0000 

GAMMAA- GAMMA  043710  0000 

GAMMAB -GAMMA  043720  0000 

GO  TO  1100  043730  0000 

1000  CAMMAC- GAMMA  043740  0000 

GO  TO  1100  043750  0000 

C  SEGMENT  IS  BELOU  GUT  043760  0000 

1010  DUATER • ELSURF -ELUATR  043770  0000 

SIGGAH-DUATER*GAMNA+(£LUATR-ELAUG )* (GAMMA-62. 4 )  043780  0000 

IF(SEGDEP.LE.2.*BE>  GO  TO  1030  043790  0000 

IFCDUATER.GT.2.8BE)  GO  TO  1020  043800 

C  SEGMENT  IS  DEEPER  THAN  2BE  AND  GUT  IS  UITHlN  2BE  OF  GROUND  SURFACE  043810 

GAMMAA- ( GAMMA8DUATER+  <  GAMMA-62 . 4 ) * ( 2 . *BE-DUATER ) ) / ( 2 . *BE  >  043820 

GAMMAB- C GAMMA-62. 4)  043830  0000 

GO  TO  1100  043840  0000 

C  SEGMENT  AND  GUT  ARE  BOTH  DEEPER  THAN  2BE  043850  0000 

1020  GAMMAA-GAMMA  043860  0000 

GAMMAB- ( GAMMA* ( DUATER-2 .(BE >  +  ( GAMMA-62 . 4 )* t ELUATR-EL AUG ) ) / 1 SEGDEP-  043870  0000 

1  2 .  (BE  )  043880  0000 

GO  TO  1100  043890  0000 

C  SEGMENT  IS  WITHIN  2BE  OF  GROUND  SURFACE  043900  0000 

1030  GAMMAC- C GAMMA *DUATER+( GAMMA-62 .4 )*(ELUATR-ELAUG ) ) /SEGDEP  043910  0000 

GO  TO  1100  043920  0000 

C  CUT  IS  ABOUE  GROUND  SURFACE  043930  0000 

1060  GAMMAA-QAMMA-62 . 4  043940  0000 

GAMMAB- GAMMA-62. 4  0439S0  0000 

GAMMAC-GAMNA-62 . 4  043960  0000 

SIGGAH-SEGDEPSCGAMMA-62.4)  043970  0000 


(Cont  i  rim'd ) 
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C  - - - . . . 

mi  phieor*atan(cohesn/siggah.tanphi  > 

PHIE0*PNI£0RI18#./PI 
IF<PHIEQ.QT.4S.  )  PHIEQ-4S. 

C  ESTABLISH  SEGMENT  TYPE  AND  SHAPE  FACTORS 
IF ( SEGDEP . LE.2 . XBE )  GO  TO  1300 
F-l.S 

FSHAPE* 1 . 0 

IFiITVPE.EO.1 )  GO  TO  ltll 
C  SHAFT  SEGMENT 

F-0.5 

FSMAPE-S.S 

IF  1 1  SNAPS. EG . 2  )  F.0.6 
IF ( ISHAPS. E0.2  )  FSHAPE-0.6 

go  to  1200 

C  TUNNEL  segment 

U1S  IFdSHAPE.E0.3J  FSHAPE* l  .25 

GO  TO  ises 

c  . 

C  the  FOLLOWING  UNIT  WEIGHTS  APE  FOR  STABILIZATION  BY  DEWATERING 

11SS  IF (SEGDEP . L£ .2.XBE )  GO  TO  1160 
GAMMAA.GANNA 
GAMMA B* GAMMA 
GO  TO  1200 
1160  GAMMAC*GAMMA 
GO  TO  1350 

C  . . . — . . 


C  SEGMENT  IS  DEEPER  THAN  2BE 

1200  SIGMAT- 2 .  XBEIGAMMAXF*  ( SEGDEP-2 .  *BE  )*  1 0 . 34-PHIEQSX2 .  '6000 .  )  t 
1  GAMMAXFSHAPE 

C  INCREASE  SIGMAT  IF  GUT  IS  ABODE  GROUND  AND  SEGMENT  NOT  DEWATERED 
IFCMSTABT.EQ.2J  CO  TO  1250 

IF (ELUATR . GT . ELSURF  )  SIGMAT "SIGMAT* (ELUATR-ELSURF  JX62.4 
1250  SIGMA1  *2 . XBEXCAMMAAXF*  ( SEGDEP-2 .  XBE  )S  ( 0 . 34-PHIE0XX2 .  /6000 .  ) X 
1  GAHMABXFSHAPE 
GO  TO  1400 

C  SEGMENT  IS  NO  DEEPER  THAN  2BE 

1300  F*1 .0 

IFtlTVPE.EO.l )  GO  TO  1350 
C  SHAFT  SEGMENT 

F*0.5 

IF( I  SNAPS. EG. 2  )  F-0.6 
1350  SIGMAT. SEGDEPIGAMHAXF 

C  I2C552SE  SIGMAT  IF  GUT  IS  ABODE  GROUND  AND  SEGMENT  NOT  DEWATERED 
IFCMSTABT.E0.2J  GO  TO  1375 

IF l ELUATR. GT. ELSURF)  SIGMAT-SIGMATycELUATR-ELSURF JX62. 4 
1375  SICHA1-SEGDEPXGAMNACXF 

C  - 


( Cont i nued ) 
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043980  0030 
043990  0000 
044000  0000 
044010  0000 
044020  0000 
044030  0000 
044040  0000 
044050  0000 
044060  0000 
044070  0000 
044080  0000 
044090  0000 
044100  0000 
044110  0000 
044120  0000 
044130  0000 
044140  0000 
044150  0000 
044160  0000 
044170  0000 
044180  0000 
044190  0000 
044200  0000 
044210  0000 
044220  0000 
044230  0000 
044240  0000 
044250  0000 
044260  0000 
044270  0000 
044280  0000 
044290  0000 
044300  0000 
044310  0000 

044320  0000 
044330  0000 
044340  0000 
044350  0000 
044360  0000 
044370  0000 
044380  0000 
044390  0000 
044400  0000 
044410  0000 
044420  0000 
044430  0000 
044440  0000 
044459  0000 


ooo  o  o  o  o  ooo  oooooooooo 


' i  > S  1  IT,  1  i  • .  I  ill.'  ( I  \  ’ii  l  i :  mt  >1  ) 


C  CONFUTE  STABILITV  NUMBER 
14N  FR$TRN*SIGMAl/8 .  * <  1  . -SINPHI  )*VANPHl 
SHRSTR*C0HESN4FR$TRN 
ST  ABNM  •  S  :  GMT  /  SHR  S  TR 


RETURN 

END 

SUBROUTINE  AIRPRSI AIRPR  ,210. ELAuG.ELuATR, IERR0R, ITvPE.PHl .SHRSTR, 
1SIGMAT, STABNM, STABNC.LO.NREACH.NSHAFT.NSSEG.HTSEG) 


THIS  SUBROUTINE  DETERMINES  THE  AIR  PRESSURE  TC  BE  USED  FOR  SOFT 
GROUND  CONSTRUCTION  IN  COMPRESSED  AIR 


CHECK  FOR  GRANULAR  MATERIAL  BELOU  GUT.  IF  SO,  AIR  PRESSURE  IS 
CONTROLLED  BV  WATER  HEAD 

IFCD10.GT.  .005  .AND.ELAUG.LT.ELUATR)  AIRPR*. 031 ( ELuATR-ELAuG > 
IFCD10.GT.  .005  .AND.ELAUG.LT.ELUATR)  RETURN 


AIR  PRESSURE  IS  NOT  CONTROLLED  BV  WATER  HEAD.  START  BV  COMPUTING 
STABILITv  NUMBER  USING  MINIMUM  AIR  PRESSURE  OF  7  PSI. 

AIRPR-7.0 

STABNM*  <  SIGMAT-AIRPR1144. )/SHfiSTR 

CHECK  FOR  STABILITV  NUMBER  DECREASE  OF  AT  LEAST  1.0 

IFtSTABNO-STABNM.GE. 1 . 1  GO  TO  1100 

DECREASE  LESS  THAN  l.S  COMPUTE  AIR  PRESURE  FOR  DECREASE*  1.0 
AIRPR- ( SIGMAT- ( STABNO-1 .  IISHRSTR )/ 1 44 . 

CHECK  FOR  AIR  PRESSURE  GREATER  THAN  50  PSI 
IF(AIRPR.GT.S0. )  GO  TO  1000 

AIR  PRESSURE  IS  LESS  THAN  50  PSI.  CAN  SEGMENT  BE  EXCAUATED 
IF  <  STABNO-1 .  . LE .9.  . AND. PHI . LT .29.  . OR . STABNO-1 .  .LE.7.  .AND. PHI 
1  . GE.29.  )  GO  TO  1050 

SEGMENT  CANNOT  BE  EXCAUATED  FOR  STABILITv  NUMBER  DECREASE  OF  1.0 
CAUSED  BV  APPLICATION  OF  AIR  PRESSURE, OR  DECREASE  OF  1.0  REQUIRES 
AIR  PRESSURE  GREATER  THAN  50  PSI.  TRV  50  PSI 
1000  AIRPR-50 . 

STABNM*  <  S I GMAT-A I  RPR*  1 44 .  )  /SHRSTR 


044400  0000 
044470  e000 

044480  0000 
044490  0000 

044500  0000 

044510  0000 
044520  0000 
044530  0000 
044540  0000 
044550  0000 
044550  0000 
044570  0000 
044580  0000 
044590  0000 
044600  0000 
044510  0000 
044620  0000 
044630  0000 
044640  0000 
044650  0000 
044660  0000 
044670  0000 
044680  0000 
044690  0000 
044700  0000 
044710  0000 
044720  0000 
044730  0000 
044740  0000 
044750  0000 
044760  0000 
044770  0000 
044780  0000 
044790  0000 
044800  0000 
044810  0000 
044820  0000 
044830  0000 
044840  0000 
044850  0000 


(Coni inued) 
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ooo 
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:  CHECK  UHETHER  SEQUENT  CAN  IE  EXCAUATED  USING  60  PSI 

IF(STAINM.LE.9.  .AND.  PHI  LT.29.  .OR .  STAINM.  LE.  7.  .  AND. PHI  .OE.  29.  ) 
1  QO  TO  1899 

I  SEQUENT  CANNOT  IE  EXCAUATED  USING  50  PSI, MAXIMUM  ALLOWABLE  PRESS. 

IERROR*l 

IFCTVPE.EQ.l)  WRITE (10,2000)  NTSEC.NREACH 
IF ( ITVPE.EQ.2  !  WRITE (10, 3000)  NSSEC.NSHAFT 
GO  TO  1200 

!  SEONENT  CAN  IE  EXC  USING  AIR  PRESSURE  FOR  STAINO  DECREASED. 0 
10S9  STABNN-STAINO-1. 

QO  TO  1200 


STABILITY  NUMBER  DECREASE  BY  AT  LEAST  1.0  FOR  7  PSI  AIR  PRESSURE. 
CAN  SEGMENT  IE  EXCAUATED 

1100  IF(STABNM.LE.8.  .AND. PHI.LT. 29.  . OR . STABNM.LE.7.  . AND. PHI . CE.29.  ) 
1  GO  TO  1200 

SEGMENT  CANNOT  BE  EXCAUATED  FOR  DECREASE* 1.0  USING  7  PSI.  COMPUTE 

AIR  PRESSURE  SO  SEGMENT  CAN  BE  EXCAUATED 

SN*9. 

IFtPHI .GE.29.  )  SN-7. 

AIRPR*<SIGMAT-SNISHRSTR)/144. 

CHECK  FOR  AIR  PRESSURE  GREATER  THAN  50  PSI 
IFtAIRPR.CT.50.  )  GO  TO  1150 
AIR  PRESSURE  LESS  THAN  50  PSI 
STABNN-SN 


1150 


1209 


GO  TO  1200 
SEGMENT  CANNOT 
IERROR*! 
IF(ITYPE.EG.l) 
IF ( ITYPE.EQ.2 ) 
RETURN 


BE  EXCAUATED  USING  50  PSI, MAXIMUM  ALLOUABLE  PRESS. 


URITE(LO,2000)  NTSEG.NREACH 
WRITEC  LO.3000  >  NSSEG,NSHAFT 


2009  FORMATt /, '  FATAL  ERROR,  SEGMENT ', 15, '  IN  REACH '.15,'  CANNOT  BE 
1EXCAUATED  USING  LESS  THAN  50  PSI  AIR  PRESSURE  FOR  STABILIZATION' 
3009  FORMAT^.'  FATAL  ERROR,  SEGMENT 15, '  IN  SHAFT'. IS,'  CANNOT  BE 
1EXCAUATED  USING  LESS  THAN  50  PSI  AIR  PRESSURE  FOR  STABILIZATION' 


RETURN 

END 


944860 

044870 

0«4880 

044890 

044500 

044810 

044820 

044830 

044940 

044950 

044960 

044970 

044980 

044990 

045000 

045010 

045020 

045030 

045040 

045050 

045060 

045070 

045080 

045090 

045100 

045110 

045120 

045130 

045140 

045150 

045160 

045170 

045180 

045190 

045200 

045210 

045220 

045225 

045230 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 


0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 
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N1«I  045780  (IM 

ni*i  945799  0099 

c  Msue  e«ae 

CM  IF(I.NE.NTSM)  00  TO  106  945810  8999 

8M  CONTINUE  945829  0909 

C  - 945830  0090 

RETURN  845840  0090 

END  045860  0009 

SUBROUTINE  A  ORATE  (A.B.CNP.SHAFT.TRDATA.NTSMAX.NSSNAX.NPnAX.NSMAX,  045860  9990 

1NTRNAX)  945865 

- 945870  0099 

- 045880  0000 

9458S0  9000 

THIS  SUBROUTINE  COMPUTES  THE  ULTIMATE  HEAD I  NO  ADUANCE  RATE  FOR  045900  00e0 

SEGMENTS  IN  WHICH  NONE  UAS  USER  SPECIFIED  AND  CONFUTES  THE  AUERAGE  945910  0990 

ADUANCE  RATE  IN  All  SEGMENTS  045920  0000 

345930  0000 

. 045940  0000 

- - - .  045950  0000 

common  /basic/  nss.nts  045960  0000 

DIMENSION  A(NTSMAX,o8  ) ,8  tNSSMAX. 43  )#CNP<  NPMAX,  2  ), SHAFT  (NSPIAX.23  >.  045970  0000 

1  TRDATA(NTRMAX,23)  045980  0900 

- - - - - - - . - .  045990  0000 

. . . . - . - . .  046000  0900 

COMPUTE  ADUANCE  RATES  IN  TUNNEL  SEGMENTS  046010  0000 

DO  409  NREACH ■ 1 , NTRNAX  046020  0000 

IF(TRDATA(NREACH, 1 ) .LT.-10.E29 )  30  TO  400  046030  9000 

NRS£Gi«TRDATACNREACH.5>  046040  0000 

NSEGS -TRDATAC NREACH. 6)  046050  0000 

NSEOSA *  I ABS ( NSEGS  )  046060  9000 

INITIALIZE  UALUES  046070  9000 

PIN$AR»0.  046980  9000 

MEXP*0  046090  0000 

DO  300  1*1 .NSEOSA  946100  9909 

N«SEOUENCE  NUMBER  OF  TUNNEL  SEGMENT  046110  9000 

IF( NSEGS. GT .0 )  N-NRSEGl+I-l  046120  0000 

IF ( NSEGS. LT .0 )  N«NRSEG1-Itl  046130  0000 

MEX«A(N, 7 )  046140  9000 

STABNO-A<N.30>  046150  0000 

£•2.71828  046160  0900 

AR-ACN.8)  046170  0000 

TSEGL-A(N.45)  046180  0000 

IFIMEX.GT .5  )  GO  TO  1000  046190  0900 

CHECK  FOR  EXCAUATION  IN  DOWNHILL  DIRECTION  046200  0000 

IF  EXCAUATION  IS  DOUNHILL. ULTIMATE  ADUANCE  RATE  IS  ONLV  99  PERCENT  046210  0000 

OF  ULTIMATE  RATE  FOR  LEUEl  OR  UPHILL  EXCAUATION  046220  0000 

SLARF«1 .0  046230  0009 

NFL-A(N.2)  046240  0009 

NPR«A<N,3)  046250  0000 

£LNPL*CNP<NPL,2)  046260  0000 

ELNPR*CNP(NPR,8 1  046279  0000 

SLOPE* (ELNPL-ELNPR )/ ( CNP<NPL, 1 J-CNPC  NPR, 1 ) )  046280  0000 

IF( NSEGS. GT .9  .AND.  SLOPE. LT.0.  .OR.  NSEGS. LT.0  .AND.  SLOPE. GT. 0. )  046299  0990 

1  SLARF*0.9  046309  0009 

BE-ACN.39}  046319  9900 

RS-ACN.5)  046320  9900 

ROD* A (N. 6 )  046330  0990 

GI*A(N,9)  046340  9009 


(Cont inued) 
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mstab«A(n.3i ) 

00  TO  3* 

1H4  ISUPPT.A(N,26 ) 

00  TO  19 

3#  IF(NEX.EQ.NEXP)  00  TO  19 

c  this  is  first  sequent  in  reach  or  excavation  method  has  changed 

IINSAR-9. 

oo  to  as 

C  EXCAVATION  IS  SAME  AS  IN  PREVIOUS  SEGMENT 
IS  »INSAR«PINSAR-.0S 

IF(BINSAR.LT.9.  )  8INSAR-0. 

89  IF(AR.CT.0.)  artult-ar 
IFCAR.GT.9. )  00  TO  199 

AN  ultimate  advance  rate  has  not  been  specified. MUST  COMPUTE  ONE 
COMPUTE  SVSTEM  ADVANCE  RATES  IN  FEET/84  HOURS 
CHECK  FOR  METHOD  OF  EXCAVATION 
leas  IFCMEX.GT.S)  GO  TO  1169 
THIS  IS  NOT  CUT  AND  COVER 
ISHAPE*TRDATA ( NREACH . 3 ) 

IF  C MEX .  NE .  2 .  AND . HEX . NE .  3 )  GO  TO  S0 
IF(MEX.EQ.S)  GO  TO  1S9 

MOLE  IN  SOFT  GROUND 

ARTULT*  (2.  KSTABNO-7.  )**2  +1 .  )/109090.*(89.-BE )**3.*$LARF 

oo  to  nee 

MOLE  IN  ROCK 

ADVANCE  RATE  EQUATION  NOT  GOOD  FOR  ROCK  STRENGTH  BELOU  3999  PSI 
159  IF(RS.LT.3999.  )  RS-3000. 

ARTULT«<  19099000. /<BE*RSn*(.6  +  .4*SIN<3. 141S9XRQD/7S.+1.16?)  >> 

1*( GI+1590. )/<S. *01+1500. XSLARF 
GO  TO  1100 

CONVENTIONAL  EXCAVATION  IN  ROCK  OR  HAND  OR  RIPPER  EXC  IN  SOFT  GRND 
50  IFdSHAPE.EQ.l )  SFA-0.78S 
IFCISHAPE.EQ.2)  SFA-0.893 
IF (I SHAPE. EG. 3)  SFA-0.42S 

IF (HEX . EG . 1 )  ARTULT- C ( . 98XBES *2 . 25 ) *RQD+ 1000 . > * U 01+ 1500 . 1 / 

1  C6.*GI+1S09.  ))/(SFA*BE**1.5*E**f.035*BEJ*(l.  +  .0025*RS/1000. ))* 

2  SLARF*  ( 1 .  -RQO*  <  BE- 10 . )  /6000 . ) 

IFCMEX.EO. 1 )  GO  TO  1299 

IFCMEX.EQ.4)  ARTULT-<0.3*(STABNO-1O. >**2  +1.  )/190000.* 

1  C80.-BE)**3.*SLARF*9.785/SFA 
IF (MEX . EQ . 5  >  ARTULT • < 1 . 4* ( STABNO-? . 5 )**2  ♦ 1 .  )/ 1 99009 . * 

1  ( 80 .  -BE )  **3 .  *SLARF  1 0 . 785/5FA 
IF ( ISHAPE . NE . 3 )  GO  TO  1100 

?U5£e«tJI  iHE£K  computed  advance  rate  greater 

£z5£kE«2^  §5flE  8E  F0R  stabilitv  number  •  9.  if  greater, 
ffT«S5Tyj;T^^05«SrtS<£IWPNI>,-E  mual  T0  Pi^xirrufi  rate  for  circle. 
«5I'«-;»03i*(89.-be)«3.*slarf 

iim  WJECTI“S 

C  95?yN$„INJ|9T10NS  USED  .CHECK  FOR  APPLICATION  FROM  INSIDE  SEO. 
NPL8*A(N,17) 


046350  9900 
946369  9900 
046379  9999 
9463B0  9009 
046390  9000 
046499  0009 
046410  9000 
046489  0000 
946430  9000 
046449  0900 
046459  0000 
046460  9009 
046470  0000 
046480  0000 
046490  0009 
046590  0000 
046510  0000 
046529  0000 
046530  0000 
046540  0000 
046550  0009 
046560  0000 
046579  0090 
046580  0000 
046590  0090 
046690  9000 
046619  0000 
046620  0000 
046630  0090 
046640  0090 
046650  0000 
946669  9009 
046670  9900 
946680  9990 
046690  9909 
046799  0000 
946710  0099 
046729  0000 
046739  0990 
946749  0000 
046759  0900 
046769  0900 
046779  0000 
946780  0000 
946790  0999 
046899  9900 
946810  0000 
946829  0900 
946830  9090 
946840  0000 
946850  9990 
946869  9999 
946879  9999 
946880  9999 
946890  9999 
946990  9999 
046910  0009 
046930  9990 
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NPR8*A<N,18> 

ELNPIS*CNPCNPLS,2) 

fLNPRi*CNPtNPAS,2> 

EL8URF* ( ELNPLS+ELNPRS >/2 . 

EL AUG* ( ELNPL+ELNPR ) /3 . 

$EQD6P*ELSURF-£IAUG 
IF ( I SHAPE .NE. 3  )  GO  TO  1126 
IFtSEGDEP-BE/4.  .GT.56.)  GO  TO  USB 
GO  TO  1200 

IF (SEGDEP-BE/2.  .GT.50. >  GO  TO  1156 
GO  TO  1266 

GROUND  INJECTIONS  ARE  HADE  FROfl  UITHIN  SEGMENT  AND  SLOUS  ADUANCE 
ARTULT* 166 . / < 166 . ♦ARTULT >*ARTULT 
GO  TO  1266 

CUT  AND  COVER 
S1DESL*A< N.S3  > 

IF<  SIDESL .GT . 0.  )  GO  TO  1186 
VERTICAL  CUT 

IF< ISUPPT.EQ . S  )  ARTULT-15 . *7 . *AT AN ( 3 . -STA8N0  ) 

IF < ISUPPT . EG . 6 )  ARTULT* 18 . +5 . TAT AN ( 4 . -STABNO > 

GO  TO  1266 
SLOPING  CUT 
DTRNCH*A(N,S2) 

ARTULT* 15666 ./( SIDESL*  <  20 . +DTRNCH  ) +366 .  ) 

CONVERT  COMPUTED  ADUANCE  RATES  TO  FEET/HOURS  WORKED.  INPUT  RATES 
ARE  ALREADY  IN  FEET/HOURS  WORKED 
HOURS*TRDATA ( NREACH . 8 ) 

SHIFTS* 1 

IF < HOURS. GE. 12.  )  SHIFTS*2. 

IFIHOURS.GE.21. )  SHIFTS-3. 

EFFAC-1. 

IF < HOURS/SHIFTS. GT. 8. >  EFFAC-1 .0-0.01* CHOURS/SHIFTS-8.  )** 2. 
ARTULT-ARTULT*EFFAC*H0URS/24 . 

IF < TSEGL. LE . 25 . *( 1 . -BINSAR**2 . JtARTULT )  GO  TO  126 

ULTIMATE  ADUANCE  RATE  IS  ATTAINED 

ARF AC -TSEGL^ C  25 . * ( 1 . -BINSAR )**2  *ARTULT+T$EGL ) 

PINSAR-1.6 
GO  TO  246 

ULTIMATE  ADUANCE  RATE  NEVER  ATTAINED, SEGMENT  TOO  SHORT 
ARFAC*. 5* ( B I NSAR+SQRT ( B I NSAR**2 . ♦ .04*TSEGL/ARTULT  5 ) 

PINSAR-SQRT  <  BINSAR**2 .  + . 84*TSECL/ ARTULT ) 

NEXP-HEX 

COMPUTE  AND  STORE  AUERAGE  ADVANCE  RATE  FOR  EACH  SEGMENT 
A (N, 49) -ARTULT 
A(N,8 l-ARTULTIARFAC 
CONTINUE 

COMPUTE  ADUANCE  RATES  IN  SHAFT  SEGMENTS 

DO  866  NSHAFT  * 1 , NSMAX 

IF<SHAFT(NSHAFT,1).LE.-16.E29)  GO  TO  866 

IF  THE  SHAFT  IS  A  PORTAL.  SKIP  ADVANCE  RATE  COMPUTATIONS 

NPORT*SHAFT< NSHAFT, 23) 

IF(NPORT.EO.l)  GO  TO  866 
N8SEG1»SHAFT ( NSHAFT , 1 ) 

NSEOS-SHAFT  <  NSHAFT , 4 ) 


646936 

646946 

646966 

646966 

646976 

646986 

646996 

647666 

647616 

647626 

647636 

647646 

647656 

647666 

647676 

647686 

647696 

647166 

647116 

647126 

647136 

647146 

847156 

847168 

647176 

847186 

647196 

647266 

647216 

647226 

647236 

647246 

847256 

647266 

647276 

847286 

647296 

647300 

647310 

047320 

047330 

047340 

047356 

047366 

647370 

047380 

047390 

647400 

047410 

647420 

047430 

647446 

047450 

647460 

047470 

047480 

647496 

047560 


(Ccmt  inucd ) 
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INITIALIZE  VALUES 
AIHfAA*#. 

HiXP'O 

DO  700  I  •  1 ,  NSEOS 

N'SEOUENCE  NUMBER  OF  SHAFT  SEGMENT 

N«X-1*NSSEG1 

HCX'BCN,?) 

S0|0L'»IN.3S> 

CHECK  FOR  SHAFT  CONSTRUCTED  IN  CUT  AND  COVER 
IFtNEX.EQ.O)  ARSULT'O. 

IF(NEX.EQ.O)  00  TO  700 
STA»N0'BtN,24> 

d-depth  to  midpoint  of  SHAFT  SECNENT 
D-B<N,36) 

AR*BCN,8> 

ROD'S IN, 6 ) 

Ol'f (N,0 ) 

FU  IS  AN  INFLOW  ADUANCE  RATE  FACTOR'1.0  IN  DRY  SHAFTS,. 5  IN  uET 
IFCOI.LT. 1. )  00  TO  440 
SHAFT  IS  UET 
FU'0.6 
00  TO  450 
SHAFT  IS  DRY 
440  FU'1.0 
450  tE*B(N,S9) 

RS'B(N.S) 

IF(flEX.EO.NEXP)  00  TO  410 

THIS  IS  FIRST  SECNENT  IN  SHAFT  OR  EXCAUATION  METHOD  HAS  CHANCED 
BINSAR'O. 

GO  TO  420 

EXCAUATION  IS  SANE  AS  IN  PREUIOUS  SECNENT 
410  BINSAR'PINSAR- . 05 

IFCBINSAR.LT .0. )  BINSAR'O. 

420  IFCAR.GT.O.)  arsult-ar 
IFCAR.OT .0.  )  00  TO  500 

AN  ULTIMATE  ADUANCE  RATE  HAS  NOT  BEEN  SPECIFIED, NUST  COMPUTE  ONE 

COMPOTE  SYSTEM  ADUANCE  RATES  IN  FEET/24  HOURS 

CHECK  FOR  METHOD  OF  EXCAUATION 

IFCNEX.EC.l  .OR.  NEX.E0.4)  00  TO  1610 

IF (HEX. EQ. 3)  GO  TO  1600 


MOLE  IN  ROCK 

ADUANCE  RATE  EQUATION  NOT  GOOD  FOR  ROCK  STRENGTH  BELOU  3000  PSI 
IF (RS . LT. 3000.  /  ;S'30OO. 

ARSULT • ( 5000000/ 1 BESRS )  )*  C . 5+RQD/2O0 . )  *FU 

GO  TO  1650  0 

C  MOLE  IN  SOFT  GROUND  0 

C  -  0 

1600  ARSULT'125. -4. *STABN0)*C1. -D/6000. )  0 

GO  TO  1660  0 

C  CONVENTIONAL  EXCAUATION  IN  ROCK  OR  HAND  EXCAUATION  IN  SOFT  GROUND  0 

1610  IFCNEX.EQ.4)  00  TO  1620  0 

C  CONVENTIONAL  EXCAUATION  IN  ROCK  0 

ARSULT • . 068FUX  CRQD+100 . )«( 1 .-D/6000. ) 

00  TO  1650 

C  HAND  EXCAUATION  IN  SOFT  GROUND 

1620  ISHAPS'SHAFTCNSHAFT, 16 ) 


(Cunt inued) 
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imiMK.EQ.I )  SFA-0.786 
IF ( ISHAPS.EO .3 )  SFA-1.0 

ARSULT*a$.-STABNO )t  <  1 . -D'6000.  >*0 . 785'SFA 


1111 


1(H 


GROUND  FACE 
GO  TO  1660 


STABILIZATION  Bv  ground  injections 


1700 


500 


S20 

640 


700 

800 


CHECK  FOR  SOFT 
IF<MSTAB.E0.3) 

00  TO  1760 

GROUND  INJECTIONS  ARE  USED. CHECK  FOR  APPLICATION  FROM  INSIDE  SEG. 
IFtD.LE. 200 . )  GO  TO  1700 

OROUND  INJECTIONS  ARE  MADE  FROM  WITHIN  SEQUENT  AND  SLOWS  ADUANCE 
ARSULT • 100. / ( 100 . ♦ARSULT  )  I ARSULT 

CONUERT  CONFUTED  ADUANCE  RATES  TO  FEET/HOURS  WORKED.  INPUT  RATES 

ARE  ALREADV  IN  FEET/HOUfiS  WORKED 

H0URS*SHAFT(NSNAFT,1?> 

ARSULT* ARSULTtHOUflS/24 . 

IF(SSEGL.LE.25.*( 1 .-BINSAR**2. !* ARSULT )  GO  TO  520 
ULTIMATE  ADUANCE  RATE  IS  ATTAINED 
ARFAC*SSEGL/ C 25 . * ( 1 . -BINSAR  >1*2  XARSULT+SSEGL  ) 

PINSAR-1.0 
GO  TO  640 

ULTIMATE  ADUANCE  RATE  NEWER  ATTAINED. SEGMENT  TOO  SHORT 
ARFAC*  .  5*  ( BINSAR+SQRT<  BINSARM2 . 4 . 04XSSEGL/ ARSULT  )  ) 

P INSAR "SORT <  BINSARFI 2. ♦ .04 ISSEGL/ ARSULT ) 

MEXP-MEX 

COMPUTE  AND  STORE  AUERAGE  ADUANCE  RATE  FOR  EACH  SEGMENT 
BCN, 39) -ARSULT 
BtN.8  )*ARSULTtARFAC 
CONTINUE 


RETURN 

END 

SUBROUTINE  CONSTM 
1NTRMAX  ) 


< A, B , CNP, SHAFT. TRDATA. NTSNAX , NSSMAX . NPMAX. NSMAX . 


THIS  SUBROUTINE  CALCULATES  SEGMENT  CONSTRUCTION  TIMES  INCLUDING 
TIME  FOR  LINING 


COMMON  /BASIC'  NSS.NTS 

DIMENSION  A( NTSMAX. 68 ).B( NSSMAX, 43  > , CNP (NPMAX. 2 ) , SHAFT ( NSMAX. 23 ) , 
1  TRDATA (NTRMAX, 23) 


CALCULATE  CONSTRUCTION  TIME  FOR  TUNNEL  SEGMENTS 
DO  50  1*1. NTS 

NEXT  LINE  SETS  UERV  HIGH  LINING  ADUANCE  RATE  FOR  UNLINED  AND 

SHOTCRETED  TUNNEL  SEGMENTS  WHICH  RESULTS  IN  PRACTICALLV  ZERO 

CONSTRUCTION  TIME  IN  THESE  SEGMENTS.  TIME  FOR  SHOTCRETING  IS  ZERO 

BECAUSE  IT  IS  PLACED  IMHEDIATELV  AFTER  EXCAUATION 

AL*10.E30 

NTSTVp.ACI.16) 

NREACH*A(I,4) 


'W4fcnvnwn  v  *  .  ; 

HCUR$*TRDATa<NREACH.8) 

DAVS*TRDATA(NREACH,6) 


e4B090  0000 
048100  0000 
048110  0000 
048120  0000 
048130  0000 
048140  0000 
048150  0000 
048160  000e 
048170  0000 
048180  0000 
048190  0000 
e48200  0000 
048210  0000 
048220  0000 
048230  0000 
048240  0000 
048250  0000 
048260  0000 
048270  0000 
048280  0000 
048290  0000 
048300  0000 
048310  0000 
048320  0000 
048330  0000 
048340  0000 
048350  0000 
048360  0000 
048370  0000 
048380  0000 
048390  0000 
048400  0000 
048410  0000 
048415 
048420  0000 
048430  0000 
048440  0000 
048450  0000 
048460  0000 
048470  0000 
048480  0000 
048490  0000 
048500  0000 
048510  0000 
048S20  0000 
048530  0000 
048540  0006 
048550  0006 
048S60  0000 
048570  0000 
048580  0000 
048590  0000 
048600  0000 
048610  0000 
048620  0600 
048630  0000 


(Coni  i  mu'll) 
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IF  (NTSTVP.QT.l)  00  TO  40  048640  0000 

LINING*A< 1.10 )  048660  0000 

IF C LINING. tO.l)  AL-34H0URS  048660  0000 

40  AR»A(I,8)  041670  0000 

T$CGL-ACI.4S>  048680  0000 

60  Aa,$0>-<tSEOL/AR»TSEQL/AL>*7./DAYS  048690  000e 

-  048700  0000 

CALCULATE  CONSTRUCTION  TINE  FOR  SHAFT  SE6NENTS  048710  0000 

00  100  I»1.NSS  048780  0000 

NEXT  LINE  SETS  UERV  HIGH  LINING  ADUANCE  RATE  FOR  UNLINED  AND  048730  0000 

SHOTCRETED  SHAFT  SEGMENTS  UHICH  RESULTS  IN  PRACTICALLY  ZERO  048740  0000 

CONSTRUCTION  TIME  IN  THESE  SEGMENTS.  TINE  FOR  SHOTCRETING  IS  ZERO  048750  0000 

BECAUSE  IT  IS  PLACED  IMMEDIATELY  AFTER  EXCAUATION  048760  0000 

AL*10.E39  048770  0000 

NSSTYP*B( I, IS )  048780  0000 

NSHAFT«B( 1,1 )  048790  0000 

ISHAPS*SHAFTC NSHAFT, 16  )  048800  0000 

HOURS»SHAFT ( NSHAFT, 17 )  048810  0000 

DAVS'SHAFT < NSHAFT, 18 )  048880  0000 

IF  CNSSTVP.GT.il  GO  TO  80  048830  0000 

L1NING-BCI.10)  048840 

IF (LINING. £0. 1 3  AL*3.SH0URS  048850 

80  AR*B(I.8>  048860 

SSEGL«B(I,35>  048870 

NO  CONSTRUCTION  TINE  FOR  CUT  AND  COUER  OR  DUMMY  SHAFT  048880  0000 

IF<NSSTYP.EG.3.CR.ISHAPS.EQ.0)  AR»10.E30  048890  0000 

100  B< 1,40  )• (SSEGL/AR+SSEGL/AL  )I7./DAYS  048900  0000 

-  048910 

RETURN  048920 

END  048930 

SUBROUTINE  PUMPHT  <  A,  B , CNP .SHAFT , TRDATA , NTSMAX , NSSMAX , NPMAX, NSMAX ,  048940  0000 

1NTRMAX )  048945 

- 048950  0000 

- - 048966  0A06 

THIS  SUBROUTINE  COMPUTES  PUMPING  HEIGHTS  FOR  TUNNEL  SEGMENTS  048970  0000 

- - - - . - .  048980  0000 

048990  0000 

COMMON  /BASIC/  NSS.NTS  049000  0000 

.  ) ,  B  ( NSSMAX,  43  ) ,  CNP  t  NPMAX, 8 ) .  SHAFT t NSMAX ,23  ) ,  049010  0000 

1  TRDATA(NTRMAX,23)  049020  0000 

-  049030  0000 

DO  200  1*1, NTS  049040  0000 

NREACH*A( 1,43  049050  0000 

NT$TVP»A< 1,16 )  049060  0000 

IF<NTSTYP.EQ.3)  GO  TO  100  049070  0000 

ROCK  OR  SOFT  GROUND  049080  0009 

£$!?EUTE  PUMPING  HEIGHTS.  PUMPING  HEIGHT  EQUALS  SHAFT  DEPTH  OR  049090  0000 

DIFFERENCE  IN  ELEVATION  FROM  TOP  OF  SHAFT  TO  MIDPOINT  OF  TUNNEL  049100  0000 

SEGMENT,  UHICHEUER  IS  GREATER  049110  0000 

NSHAFT.tRDATA<NREACH.l)  049120  0000 

cr?I*r2S^Zo5IH^T'8)  049130  0000 

£»7SI?!fPa!PTS*8J  049140  0000 

nSo’5  H  049150  0000 

049160  0000 

|H£D-CNP  NPL.2  049170  9000 

ELNPR*CNP(NPR,2 )  949180  0000 

equation  at  midpoint  of  tunnel  segment  049109  0000 

ELAUG*  £  ELNPL *£LNPR  )/2 .  049809  0000 


(Continued) 
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PH»EITS-ELAU0  9 

1ST  HH  EQUAL  TO  MUCK  HO I ST I NO  HEIGHT (SHAFT  DEPTH)  9 

HH»SHAFT  <  N0HAFT ,  I )  9 

IFCHH.GC.PH )  PH-HH  9 

00  TO  If#  9 

CUT  AND  CODER  9 

19*  D19*A(X.19)  9 

IFCD10.1E.9.095)  PH- 8  9 

IFCD19<LE<9<99S )  00  TO  1S9  9 

ELROCK'AC I.a? )  9 

IUATER'AC 1,23 )  9 

ELIMP*A( 1,24)  9 

NPLS*A(I,1?>  9 

NPRS*A< I, 18 )  9 

ELNPLS • CNP C  NPLS , 2  )  9 

ELNPR$*CNPCNPRS,2)  9 

ELSURF ■ CELNPLS+ELNPRS )/2.  9 

DROCK*ELSURF-£LROCK  0 

DTRNCH«A(I,52 )  0 

MEX-ACI.7)  0 

ISUPPT«A(I,26)  0 

ELUATR«ACI, 14 )  0 

DSLURY*A(  1.38)  0 

PH-THE  SMALLER  OF  (ELSURF-ELIflP )  AND  DTRNCH,  EXCEPT  FOR  SUMP  0 

PUMPING.  FOR  UHICH  PH« DTRNCH  0 

IFcDTRNCH.GE.ELSURF-ELIMP )  PH»£LSURF-ELinP  0 

IFCDTRNCH.LT. ELSURF-ELIMP)  PH-DTRNCH  0 

IFCIUATER.EO.0  .OR. ISUPPT.E0.5  .AND.  DROCK.LT. DTRNCH )PH*DTRNCH  0 

IF C IUATER . EQ . 0 . AND .  ISUPPT . EO . 6 . AND.  DSLLIRY . GE . ELSURF-ELIMP )  PH*0  0 

IF CELUATR.LT. ELSURF -DTRNCH)  PH«0  0 

STORE  PUMPING  HEIGHT  0 

150  A  Cl, 57) -PH  0 

299  CONTINUE  0 

. . . 0 

RETURN  0 

END  0 

SUBROUTINE  PUMPRT  C A , I , CNP , SHAFT , TRDAT A. NTSMAX , NSSMAX , NPFIAX , NSMAX ,  9 
1NTRMAX )  0 

. . . . - . 0 

. . - . - . 0 

FLOU  RATE  TO  BE  PUMPED  FROM  TUNNEL  AND  DEUATERING  FOR  TUNNELS  0 

AND  SHAFTS .  0 

— . - . 0 

- 9 

0 

COMMON  /BASIC/  NSS.NTS  0 

DIMENSION  A  C  NTSMAX. M ) , B  < NSSMAX . 43 ) . CNP C  NPMAX . 2 ) . SHAFT  C  NSMAX , 23 ) ,  0 

1  TRDATA  <  NTRMAX , 23 )  9 

9 

mtmoitmiunnittnimiimttiiimmmuttmmitmn  9 
TUNNELS  9 

mtmtmimmmmmmimmniiiitniutmnmmmn  9 


DO  409  NREACHM. NTRMAX 
IF(TRDATACNREACH,1).LT.-10.E29>  CO  TO  400 
NRSEG 1 -TRDAT A  <  NRl ACM. 5 ) 

NSEGS-TRDATA  C  NRE  ACH,  6 ) 

NSEGSA* IABS  C  NSESS ) 


(Cont inued) 


OO  OO  O  O  O  OOO  OO  OOO 


l  US  H  *;  t.w-.f  In. 


II  REQUIRED  WHEN  THE  THE  WATER  HAY  RUN  DOWN  THE  SEGMENT  IN  THE 
DIRECTION  OF  THE  EXIT  SHAFT . 

NPL-ACN,!) 

NPR-ACN, 3 ) 

ELEUD«CNP<NPR.2)-CNPCNPL,2) 

HOPE  IS  POSltlUE  UHEN  UPHILL  IN  THE  DIRECTION  OP  HEADING  ADVANCE 
SI-  SION  OF  THE  SLOPECACTUAL  UALUE  IS  IMMATERIAL ) 

SS-ELEUDINSEOS 

ESTAILISH  THE  PIPE  LENGTH  REQUIRED 

PIPE-0.0 

IFCSS.LT.0)  PIPE-0. 5JTSEGL 

DETERMINE  THE  CUMULATIUE  PIPE  LENGTHS  REQUIRED 

ACN.S8)-ZZ*TU8E4PIPE 

TUBE -PI PE 

ZZ-ACN.S8) 

IFCNTSTVP.EO.2 )  GO  TO  ISO 
ROCK  TUNNELS 
GO  TO  398 

DEWATERING  FOR  SOFT  GROUND  TUNNELS 
169  IFCMSTAB.NE.2  .0R.ABSCPERM1.LE.  9.9996)  GO  TO  2S9 
HEADU*9 
ELINP-ACN.24) 

IF  DEWATERING  METHOD  USED,  WATER  TABLE  ABOUE  IMPERUIOUS  LAYER,  AND 

WATER  TABLE  ABOUE  ELAUG,  THEN  SET  FOLLOWING  UALUES 

IFCELIHP.CE.ELBOTN)  DRAWDN-ELUATR-ELIMP 

IF(ELinP.LT.ELBOTM)  DRAUDN*ELUATR-ELBOTM 

DIMP-ELBOTM-ELINP 

GO  TO  219 

CUT  AND  COUER  DEUATERING 

299  NPLS-ACN.17) 

NPRS-ACN.18) 

ELNPLS-CNPCNPLS,  2 ) 

ELNPRS*CNP(NPRS,  2 ) 

ELSURF • C  ELNPLS*ELNPRS >/2 . 

IF ( DU. L£ .9.995 )  GO  TO  259 
ELIMP*A ( N, 24 ) 

DTRNCH«A(N,52) 

ISUPPT-ACN.26) 

PERM-ABS(PERM) 

IF( ISUPPT.NE.6  .OR.  IWATER.EQ.il  GO  TO  295 

CHECK  FOR  SLURRY  WAU  PENETRATING  IMPERUIOUS  LAVER 

DSLURV.ACN.38) 

IF(DSLURV.GE.ELSURF-EUMP.OR.DSLURV.GE.ELSURF-ELROCK)  GO  TO  259 
295  HEADU--7.*  ( ALOG10C  PERM  )*1 . ) 

IFCHEADU.GT.21.  )  HEADU-21. 

IFCHEADU.LT.9.9)  HEADU -9. 

HEADU-9  FOR  SUMP  PuMPINQ 

IF  C I WATER . EQ . 9 . OR .  ISUPPT . EG . 5 . AND . ELROCK . GT . ELSURF-DTRNCH )HE ADU-0 
DRAWDN.DTRNCH-CELSURF-ELWATR ) 

DIMP-ELSURF-ELIMP-DTRNCH 
IF CDIMP.LT. 9. 9)  DRAUDN-ELUATR-ELIMP 
219  IFCDIMP.LT .0. )  DIMP-0 

DEWATERING  IS  NOT  NEEDED  IF  GROUNDWATER  BELOW  BOTTOM  OF  EXC. 
IFCDRAUDN.LE.0. >  GO  TO  269 


959360 

9593T9 

959380 

959390 

050*00 

950410 

050420 

950430 

050440 

050450 

050460 

050470 

050480 

050490 

050500 

050510 

O50520 

050539 

059549 

959559 

959569 

959579 

959580 

050590 

050600 

050610 

050620 

050630 

050640 

050650 

050660 

050670 

050680 

050690 

050700 

05C710 

050720 

050730 

050740 

050750 

050760 

950770 

050780 

050790 

950800 

059810 

059820 

050830 

059840 

950859 

059860 

959870 

959889 

959899 

059990 

950919 

960929 

950939 


(Coni  i  inn  cl ) 


Ci  IS  I  I  N  I .  i  si  in;'  (  ('.Hit  i  ;nn  ii  i 


l>«  852660  ee»e 

UTDS>6.  962672  9992 

1199  T1>0.  952689  9999 

L-Ul  952699  9999 

TSCQL  •901,45)  952799  9999 

U  >4(11,51  )  952719  9999 

UBOX  >401,54)  952729  9299 

4ft  >401,  8)  952739  9999 

A«TULT>A(N.491  962749  9999 

LINiNG*A(H. 19 )  962759  9999 

CTTS1  >TS£gL/AR  952769  9999 

:  ADUANCE  RATE  FACTOR  4T  END  POINTS  OF  SEGMENT  952778  9999 

BINS4R>PINSAR-0 .05  952789  9999 

IF(BlNSAR.LT.0.  )  BINS4R>9.  952798  9999 

TNULT >C1.-B I NS4R J/0.02  952889  9886 

PINSAR>BINSAR+0.02*CTTSl  962818  8899 

IF (PINSAR.GT . 1 .  )PIN$4R> 1 .  95282e  9998 

I  TINE  REQUIRED  FOR  TRENCH  TO  BE  LEFT  OPEN  952838  8980 

IF (LINING. EQ. 1  )  TINE0P>39.*t4VS/7.*18.  052840  9900 

IF ( LINING. EQ . 3  )  TINEOP-10.  0S2850  990e 

UTEXC>VTExC*U*TSECL  052868  0980 

UTBOX>UTBOX+UBOX*TSEGL  052870  0000 

IF(CTTSl.GT.TIHEOP)  T1-CTTS1-TINE0P  052880  0000 

;  CONPUTE  THE  LENGTH  OF  OPEN  UITHOUT  BACKFILL  052890  0009 

1299  IF C CTTS 1 . LE . TNULT  )  0PENT>ARTULT*(CTTS1-Tl  )I(BINSAR+0.01X(CTTS1+T1  )  052990  9000 

1  )  052910  0009 

IFtCTTSl.GT. TNULT)  0PENT>ARTULT* ( BINSARX ( TNULT-T1  )+0. 01* ( TNULT**2  052920  0000 

1  -T1**2)+CTTS1-TNULT)  952930  0000 

IF (Tl.CT. TNULT)  0PENT-ARTULT*(CTTS1-Tl  )  052940  0080 

'  CALCULATE  UOLUNE  OF  DISPOSAL  AND  BACKFILL  052950  0080 

UTDST • (0. 1XUTEXC+UTB0X+  tU-UBOX  3I0PENT  )/l .  1  052960  0080 

UBl‘T*(U-UBOX  )*OPENT  052970  0000 

T2>TIflE0P-CTTSl+Tl  052980  0000 

PIN2>PIN5AR  052990  0000 

N>N+NSEGS/NSECSA  053000  0000 

LL-L+1  053010  0090 

I  CHECK  IF  THE  NEXT  SEGNENT  IS  INUOLUED  053020  0090 

IF< T2 . LE . 9 .  )  GO  TO  1500  053030  0000 

:  CHECK  FOR  END  OF  REACH  053040  0008 

1396  IF(IL.GT.NSEGSA)  GO  TO  1599  053058  9000 

TSEGL  >A( N, 45 )  053060  0000 

U2  >A(N,51  )  053070  0008 

UB0X2  >A(N,54)  953080  9000 

AR  >A(N,  8)  053090  9000 

ARTU2  >A(N,49)  053100  0000 

CTTS2  -TSEGL/AR  053110  0000 

BIN2*PIN2-0. 95  053120  0000 

IF(BIN2.LT.0.  )  BIN2-0.  053130  0900 

:  CHECK  IF  NORE  SEGMENTS  INUOLUED  953140  0060 

IF (T2.LE .CTTS2  )  GO  TO  1400  053150  9000 

Ll>Ll+l  053160  0000 

T2>T2-CTTS2  063170  9990 

N>N+N$EG$/NSEGS0  953180  9000 

UTDST>UTDST4U2*TSEGL  053190  0000 

UBFT>UBFT+(UE-UB0X2)«TSEGL  063260  0009 

PIN2>BIN2+0.02*CTTS2  053210  0909 

IFCPIN8.0T.1.  )  PIN8>1 .  953229  6900 

OPENT>OPENT*TSEOL  053239  0000 


( 
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oooooo 
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1  (  mil  i  mu  ll  ) 
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c 

c 

c 

c 

c 
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c 

c 

c 
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IF(N$|TYP.EQ.3>  CO  TO  360  653880 

U»B(N,38)  653836 

S9E0L*B(N,  35 )  663846 

SHAFT ( NSHAFT , 9  )«SHAFT ( NSHAFT , 9 )+U*SSEGL  653856 

*  SKIS** _ SliS^S 

BP"  SBSIS 

SUBROUTINE  MUCKLD <  A ,  B  , CNP , SHAFT , TRDATA,  NTSMAX, NSSMAX , NPMAX , NSMAX ,  653966 

1NTRMAX )  653965 

-  653916 

_ _____ _ _ _ _ _ _ _ _ _  053920 

CALCULATES  REQUIRED  MUCK  LOADING  RATES  IN  EACH  SEGMENT  AND  653936 

MAXIMUM  RATE  IN  EACH  REACH  OR  SHAFT  BASED  ON  ULTIMATE  ADUANCE  RATE  653948 

- - - . . . —  053956 

. - . . . - . —  653966 

COMMON  /BASIC/  NSS.NTS  653978 

D I MENS I ON  A ( NTSM AX , 68 ) , B ( NSSMAX , 43 ) , CNP ( NPM AX , 2  ) , SHAFT ( NSMAX , 83 ) ,  653986 

1  TRDATAC  NTRMAX, 23 )  653996 

_  _ _ _  _  _  _ _ - _ _ _ 054000 

MUCK  LOADING  RATE  IN  TUNNEL  SEGMENTS  AND  MAXIMUM  RATE  IN  REACH  654010 

DO  466  NREACH-1, NTRMAX  654080 

IF<TRDATA<NREACH,1 )  .LT . -10 . E89  )  GO  TO  400  054030 

054040 

h0URS«TRDATA(NR£ACH,8>  654050 

NRSEGl *TRDATA(NREACH, 5 )  054660 

NSEGS*TRDATACNREACH,6)  054070 

NSEGSA* I ABS ( NSEGS )  054080 

654090 

RMLMAX*0  654160 

054110 

DO  366  I*1,NSEGSA  054180 

N*SEQUENCE  NUMBER  OF  TUNNEL  SEGMENT  054130 

IF(NSEGS.GT.O)  N-NRSEG1+I-1  054140 

IF <NSEGS.LT .0  )  N-NRSEG1-I  +  1  054150 

NTSTVP-A(N,16)  054160 

IF  (NTSTVP.E0.3)  GO  TO  306  054170 

MEX-ACN.7)  054180 

U*A(N,5l  )  054190 

ARTULT«A(N.49)  054800 

CALCULATE  MUCK  LOADING  RATE  054810 

IF < MEX.EQ.  1  )  GO  TO  200  054880 

RML-3.*U*ARTULT/HCURS  054830 

GO  TO  856  054840 

800  IF<5.*H0URS/ARTULT.GE.8)  RML-S.IU  054350 

IF(5. tHOURS/ARTULT. LT.8.  )  RML-8. IUXARTULT/MOURS  054860 

366  IF CRHLMAX.LT. RML  )  RMLMAX-RML  054870 

A(N,48  >*RML  054880 

300  CONTINUE  054896 

054360 

360  TRDATA ( NRE ACH . 7 ) "RMLMAX  054310 

400  CONTINUE  064386 

- - - - - - -  054336 

MUCK  LOADING  RATE  IN  SHAFT  SEGMENTS  AND  MAXIMUM  RATE  IN  SHAFTS  054340 

DO  899  NSHAFT.l. NSMAX  064356 

IF(SHAFT(NSHAFT , 1 ) ,LE. -16.E89 )  GO  TO  866  054360 

054370 

HOURS«SHAFT ( NSHAFT . 17 )  664386 


0666 

6006 

0000 

0096 

0690 

9000 

0000 

0606 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 


0000 

0000 

0900 

0000 

0006 

0990 

9906 

0900 

0090 

6006 

6666 

6690 

6060 

6696 

6666 


(Cont  inin/d) 
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N*E0*«SMAFTCNSHAFT,4)  VS 

rhuiax-o  « 

00  7M  I  •  I  .MSECS  «s 

n-i-itnsse&i  _  « 

N-SCGUCNCE  NUMBER  Of  SHAFT  SEGMENT  OS 

CHECK  FOR  CUT  AND  COUER  OR  OUHMV  SHAFT  -  NO  RHL  CONFUTED  OS 

MEX-1CN.7)  OS 

IFCHEX.EO.O)  GO  TO  TOO  OS 

U«B(N.38)  OS 

ARSULf«B<N.38)  OS 

IFCMEX.EO.l)  GO  TO  600  05 

RMLO.XUSARSULT/HOURS  05 

GO  TO  6S0  05 

600  IF  1 5 . XHOURS/ ARSULT . GE . 1 2 . )  RML*5.»U/6.  OS 

IFCS. XHOURS/ARSULT. LT.  12 . )  RML-2 .  *U*ARSULT/HOURS  05 

660  IFCRnU1AX.LT.Rm.)  RMLMAX*RML  05 

KN.37  )*RNL  05 

TOO  CONTINUE  05 

05 

TSO  SHAFT  CNSHAFT, 10 ) *RNLMAX  05 

800  CONTINUE  05 

. - . 05 

RETURN  05 

END  05 

SU8R0UTINE  AIRLOKCA.B,CNP,SHAFT,TRDATA,CunSL,NTSMAX,NSSnAX,NPnAX,  05 
INSMAX.NTRMAX)  05 

. . 05 

. - . 05 

THIS  SU8R0UTINE  DETERHINES  THE  LOCATIONS  OF  AIR  LOCKS  AND  COOLING  05 
PLANT  IN  A  REACH  AND  COMPUTES  THE  COOLING  AND  UENTILATION  05 

REQUIREMENTS  OF  TUNNEL  SEGMENTS  AND  MAXIMUM  REQUIREMENT  IN  A  REACH  05 

. - . - .  OS 

. 05 

COMMON  /BASIC/  NSS.NTS  05 

D I MENS I ON  A  <  NTSMAX . 68  ) , B ( NS5NAX , 43 ) , CNP  C  NPNAX , 2 ) , SHAFT  C NSNAX , 23  > ,  05 

1  TRDATACNTRMAX.23 ),CUN5L<NPMAX )  05 

. - . 05 

DO  200  J»  1 , NTRMAX  05 

IFCTRDATACJ.l ).LT.O)  GO  TO  200  05 

ISHAPE-TRDATACJ.3)  05 

IFCISHAPE.EQ.O)  GO  TO  200  05 

INITIALIZATION  05 

NRSEG1-TRDATACJ.5)  05 

NSEGS'TRDATACJ.6)  OS 

NSHAFT  • TRD AT  A  <  J , 1 )  OS 

DTC*0.  OS 

QT»0.  05 

AIRTEM*  SHAFT  C  NSHAFT,  U)  05 

NSEOSA-IABSCNSEOS)  05 

K00L*0  0$. 

DTCA-O.  05 

CAUT»0.  OS' 

n-0  OS' 

Nl« l  05 

NPBS-SHAFT(N$HAFT,3)  OS' 


NH.|HAfT<NSHAFT,|) 

NP LOCK'S 

IFUSHAPE.EQ.l)  SF A '0.705 
IF ( I SHAPE. EQ. 8 )  SFA'0.S93 
IFCXSNAPC.EQ.3)  SFA'0.425 

DETERMINE  THE  STATION  OF  THE  FARTHEST  POINT  OF  COMPRESSED  AIR 

SEQUENT  IN  A  REACH 

DO  50  N'l.NSEOSA 

IFCNSEOS.LT. •)  00  TO  IS 

I  •  SEQUENCE  NUNSER  OF  SEGMENT 

I'NRSEG1+N-1 

NPFEND'A<1.3) 

00  TO  88 
IS  I'NRSEGl-N'H 

NPFEND'AC 1,2 )  0 

20  HSTAB'ACI.Sl  )  0 

TSEGl'ACI,4S)  0 

IFCNSTAB.NE.l)  00  TO  S0  0 

DTCA'DTCA+TSEGL  0 

cumfca«cumslcnpfend;  0 

SS  CONTINUE  0 

. . . . . . - . 0 

DETERMINE  THE  LOCATION  OF  AIR  LOCK  FOR  a  SEGMENT  IN  COMPRESSED  AIR  0 
DO  ISO  N'l.NSEOSA  0 

IF  (NSEGS.lT.0)  GO  TO  60  0 

I-NRSEG1*N-1  0 

NPFEND'AC 1,3)  0 

NPREND' AC 1,2)  0 

NPS'AC 1,17)  0 

GO  TO  65  S 

60  I'NRSEGl-N+l  0 

NPFEND'AC 1,23  0 

NPREND'AC 1 , 3  )  0 

NPS'AC I. 18)  0 

65  BE ' A  < 1 , 39 )  0 

PH'AC I,S7 )  0 

TSEGL'AC I, 45 )  0 

DN-ACI.46)  0 

RTEMP'A  C 1 , 12  )  0 

MSTAB'AC 1,31 )  0 

IFCMSTAB.NE.l)  GO  TO  85  0 

PERM.ACI.25)  0 

DIS'SQRT  < 10 . t ABS  t PERM  ) )  0 

IFCD10.LE. 0.005)  210*0.005  0 

- o 

H'M-»1 

COMPUTE  UENTILATION  QUANTITY  FOR  THE  SEGMENT  IN  COMPRESSED  AIR  v 

CAU'C28.S*19.IAl.OGiecD10)  >*SFA*BE**2 
CHECK  THE  FIRST  COMPRESSED  AIR  SEGMENT 
IFCM.NE.l)  GO  TO  70 

CHECK  IF  COOLING  PLANT  FOR  FIRST  AIR  LOCK  TO  BE  MOUED  FROM 
SHAFT  TO  ABOUE  THE  LOCK 

IFCABSCCUMFCA-CUMSLCNPBS >>*HH.LE. 12000. .AND. DTC.CT.0.  )  GO  TO  75 
00  TO  71 

CHECK  SEPARATION  BETWEEN  TWO  COMPRESSED  AIR  SEGMENTS 
70  IF ( ABS C  CUMSLC N-l  l-CUNSK NPREND  ) ) . GT . SS0S . .  AND . 

1  ABS C CUMFCA-CUMSL C NPREND ) ) .GT. 2000. )  GO  TO  71 
CHECK  THE  STATIONING  OF  THE  SEGMENT  END  POINT  TO  DETERMINE  THE 


oo 


COS  I  I  X  I.  i  st  i  ii;'  (  Coni  i  iiii.-J  ) 


POSITION  THE  AIK  LOCK 
LOCK- I AISC NPLOCK) 

IF(A8S<CUNSLCNPFEND)-CUNSL(L0CK  >  1+DTHLOK.LE.  10000.  >  GO  TO  80 
IFCAWCCUNFCA-CUHSLUOCK  11+DTHLOK.LE.  12000.  )  GO  TO  80 
STOKE  HE  HEAT  EXCHANGE  AND  COMPRESSED  AIR  QUANTITIES  WITHIN 
C OPPRESSED  AIK  SEGMENTS. 

71  NS-N-1 

DO  78  NN-N1.N2 

II*NRSEGl+CHN-l )*NSEGS/N$£GSA 
AC  II, 36  )*CAUT 
78  AC1I.37).QT 
Nl-N 
CAVT-0. 

KOOL*1 
KOOL 
QT*0. 

SET  UP 
NPLOCK 
DTHLOK 


•  INDICATOR  FOR  THE  LOCATION  OF  COOLING  PLANT 


THE  LOCK 

75  NPLOCK*NPREND 

DTHLOK*  CNP  C  NPS, 2 ) -CNP ( NPLOCK,  2 ) 

DLOCK*AIS(CUMSLt NPLOCK l-CUMSUNPJSn 
C  COMPUTE  THE  LENGTH  OF  PIPE  FOR  COOLING  IN  COMPRESSED  AIR  SEGMENT 
80  IF(KOOL.EO.O)  PUMPLT*5280.*DM+HH 

IFCKOOL-EO.l )  PUMPLT*S280.*DM-DLOCK+DTHLOK 
C  NPLOCK  •  NEGATIUE  IF  COOLING  PLANT  OF  FIRST  AIR  LOCK  MOWED  FROM 

C  SHAFT  TO  TOP  OF  LOCK 

IF  CKOOL.EQ.l.AND.M.EQ.l.AND.DTC.GT.0. )  NPLOCK--NPLOCK 
C  COMPUTE  THE  QUANT I TV  OF  COOLED  AIR  REQUIRED  IN  COMPRESSED  AIR 

C  SEGMENT 

0*CAU* ( 74.00+0 . 03 1 IPUMPLT l+SORTC  CAU  JIPUMPLT 
1  * C0. 23+0. 0454* (RTEMP-85 . 1 1+239. tPUMPLT 
IF(CAU.GT.CAUT)  CAUT-CAU 
H*NPFEND 
GO  TO  90 

COMPUTE  QUANTITV  OF  COOLED  AIR  REQUIRED  IN  FREE  AIR  SEGMENT 
85  IF  CKOOL.EG.l)  DM*DM-DL0CK/52B0. 

,o*5^2!BE*J!!(150i*5H  /{airtem+460. 1+0.03*5280. *dm+54.*airtem 
1 ^Saaa.SDJjmSQHT  C  SFAX8E112  l* C 0 . 35*RTEMP-29 .  1+2 . 4*DM*5280 . 
90  IFCO.LE.O. 1  GO  TO  95 
DTC-DTC+TSEGL 
IFCQ.GT.OT)  QT*Q 

C  „  STORE  THE  LOCK  POSITION  AND  HEAT  EXCHANGE  QUANTITV 
95  AC  1,381*0 

At  1, 36) *NPLOCK 

C  CHECK  THE  LAST  SEGMENT  IN  A  REACH 
IF  CN.NE.NSEGSA  1  GO  TO  100 
DO  99  NN*N1,N 

II*NRSEGI+CNN-i )*NSEGS/NS£GSA 
AC  11,35 )*CAVT 
99  AC  11,37 )*QT 
100  CONTINUE 

TRDATACJ.14)*DTCA 
TRDATA  C  J ,  IS  1  -DTC 
800  CONTINUE 
RETURN 
END 

,  2»l52ilT 1 NE  CALCS  C  A, I , CNP,  SHAFT,  TRDATA , N TSMAX , NSSMAX , NPMAX , NSNAX , 
INTHNAX 1 


05S540 

056550 

055560 

055670 

055580 

055590 

055600 

esseie 

055680 

055630 

055640 

065650 

056660 

055670 

055680 

055690 

055700 

055710 

055720 

055730 

055740 

055750 

055760 

055770 

055780 

055790 

055800 

0S5810 

055820 

055830 

055840 

055850 

055860 

055870 

055880 

055890 

055900 

055910 

055920 

055930 

055940 

055950 

055960 

055970 

055980 

055990 

056000 

056010 

056020 

056030 

056040 

056050 

056060 

056070 

056080 

056090 

056100 

056105 


0000 

0000 


0000 

0000 

0000 


0000 

0000 

eoee 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

eoee 

0000 


0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


(Co nt inued) 


Ai  20 


DIPP'ELSURF-iLIMP-DTRNCH 

C  CHECK  IF  IMPERVIOUS  LAVER  ABOVE  BASE  OF  CUT 
1FCDINP.GE.B.0)  GO  TO  ?1B 
DRAUDN-ELUATR-ELIHP 

DIMP*0.® 

71®  H£ADU*-7.  <<  ALOG10CPERM  )-*l . ) 

C  CHECK  IF  VACUUM  HEAD  GREATER  THAN  21  FEET 
IF(HEADU.CT.21.  )  HEADU-21.0 
C  CHECK  IF  VACUUM  HEAD  LESS  THAN  0  FEET 

IF (HEADU.LT . 0.0  )  HEADV-0.0 

head*draudn*headu+dinp 

PIPED*0.S*FLOUL«0.4 

c  minimum  pipe  size 

IF (PIPED. LT . 1 .  )  PIP£D»1 . 

C  DRAWDOWN  TINE 

EXPT»3.5*DRAUDN*ALOG10(240.  ^HEAD-SORT ( HEADlDIMP  )  J/PIPED  )/iD»AU'DN 
1 +HEADU ) / C  0 . 73*0 , 27* ( DRAUDN4HEADU  )  /HEAD  >-S . 0 
TIMET*0 .00267*PIPED**2*10 . **EXPT/PERM'DRAUDN 
C  CHECK  FOR  MAX I HUH  SEGMENT  DEWATERING  TIME  IN  REACH 
IF(T1MEDU.LT. TIMET)  TIHEDOTIMET 
730  ICTR» ICTR+CTTS 

ICTR‘ICTR+14. *SETuSH+28 . ISETUPM47 . ISETUPR* 1 4. *AL0CK 


C  CHECK  FOR  CUT  AND  COUEfi  REACH 
NTSTVP-A(N  ,16) 

IF (NTSTVP.EQ. 3  1  GO  TO  740 
TRDATAtNREACH, 10  l-SETuSH 
TRDAT A ( NREACH ,11) *SETUPM 
TRDATAtNREACH, 12 J-SETUPR 
GO  TO  750 

740  ICTR* ICTR470 . /DAVS+TIMECR+TINEDU 
TRDAT A (NREACH, 14  )*TIMEDU 
750  IF(LIST(4).EQ.l  )  GO  TO  100 
URITE(LO,2222) 

NUNES-NLINES+l 
IF (NTSTVP.EQ. 1  )  GO  TO  73 
PERM*ABS( A(N, 25 ) ) 

GANMA*A(N,22  ) 

IFL0UL-A(N.61  ) 

73  CONTINUE 

C  . 

IFtNTSTVP.EQ. 3 )  GO  TO  80 
C  ROCK  OR  SOFT  GROUND  TUNNEL 

URITE(LO,3001 )  NREACH, NTSEG,ISTA.ITENS,IHUNS, LSECL.BFT.BE, BOB, AR, 
1ARTULT, TL, IUTS, IUTR  , IFL, IPH, ICTTS, ICTR, IPRML, HOURS, DAYS 
IF (NTSTVP.EQ. 1  )  GO  TO  100 


0S8410  e00® 
058420  0000 
058430  000® 
058440  0000 
058450  0000 
058460  0000 
058470  0000 
058480  0000 
058490  0000 
058500  0000 
058510  0000 
058520  0000 
058530  0000 
058540  0000 
058550  0060 
058560  0000 
058570  000e 
058580  0000 
058590  0000 
058600  0000 
058610  0000 
058620  0000 
058630  0000 
058640  000® 
058650  0000 
058660  0000 
058670  0000 
058680  00ee 
058690  0000 
058700  0000 
0587 ie  0000 
058720  0000 
058730  0000 
058740  0000 
058750  0000 
058760  0000 
058770  0000 
058780  0000 
058790  0000 
058800  0000 
058810  0000 
058820  0000 
058830  0000 
058840  0000 
058850  0000 
058860  0000 


(Coni inued) 


l  i  IS  l  I 


I  i  si  ill;'  ((silt  i  iiut-ii) 


SOFT  GROUND  TUNNEL 
IF(MTAB.NE.l  )  GO  TO  ?S 
AIR  LOCK  NODAL  POINTS 
NPLOCK- A ( N. 36 ) 

$TA-CNP(NPLOCK,l  ) 

ISTA-STA/100. 

I STA2 • ST  A- 1 STA* 1 00 
ITENS-ISTA2/10. 

IHUNS-ISTA2-ITENSF10 
I HUNS  *  1 ABS ( I HUNS  ) 

URITE(LO,3002>  1ST A, I TENS, IHUNS, STABNO, STABIL, AIRPR. IFLOUL, GAMMA, 

1PERN 

NL1NES-NLINES+1 
GO  TO  100 

AIR  PRESSURE  NOT  USED 

?S  URITE<  LO, 2002 )  STABNO.  STABIL. IFLOUL. GAMMA, PERM 
NLINES-NLINES+1 
GO  TO  100 


CUT  AND  COUER 

80  URITE(LO,3004)  NREACH.NTSEG, ISTA, ITENS, IHUNS, LSEGL.AR. ARTULt. I UTS, 
1  IUTR.IPH.ICTTS.ICTR, HOURS, DAVS 
IFCISUPPT.EQ.S)  SPDLT  -ACN,38 ) 

IF(  ISUPPT.  EQ.fi )  DSLURV-A  ( N, 38 ) 

URITE ( LO, 3005  )  STABNO, ST ABIL, IFLOUL, GAMMA, PERM, UL  .BE.SIDESL, 
lDSLURV.SPDLT.BACKFL, OPEN 
NLINES-NLINES+1 
GO  TO  100 


THIS  SEGMENT  IN  SAME  REACH  AS  PREUIOUS  SEGMENT 
85  IF(LIST(4).E0.1 )  GO  TO  100 
URITE( LO. 2150 ) 

NLINES-NLINES+I 


rrcNTSTVP.EG.3!  GO  TO  85 
ROCK  OR  SOFT  GROUND  TUNNEL 


URITE(LO,3011 1  NTSEG, ISTA, ITENS, IHUNS,LSEGL,BFT, BE, BOB. AR, ARTULT 
1TL, IUTS, 1UTR, IFL, IPH,  ICTTS 
IF (NTSTYP.EO. 1  )  GO  t6  100 


SOFT  GROUND  TUNNEL 
IFCMSTAB.NE.l  )  GO  TO  90 
AIR  LOCK  NODAL  POINTS 
NPL0CK-A(N,3G) 
STA-CNP(NPL0CK,1  ) 
ISTA-STA/100. 
ISTA2-STA-ISTAI100 
ITENS-ISTA2/10. 
IHUNS-ISTA2-ITENSI10 


0588?0  0000 
058889  0000 
058890  0000 
058900  0000 
053910  0000 
058920  0000 
058930  0000 
058940  0000 
058950  0000 
058950  0000 
058970  0000 
058980  0000 
058990  0000 
059000  0000 
059010  0000 
059020  0000 
059030  0000 
059040  0000 
059050  0000 
059060  0000 
059070  0000 
059080  0000 
059090  0000 
059100  0000 
059110  0000 
059120  0000 
059130  0000 
059140  0000 
059150  0000 
059160  0000 
059170  0000 
059180  0000 
059190  0000 
059200  0000 
059210  0000 
059220  0000 
059230  0000 
059240  0000 
059250  0000 
059260  0000 
059270  0000 
059280  0000 
059290  0000 
059300  0000 
059310  0000 
059320  0000 
059330  0000 
059340  0000 


059350  0000 


059360  0000 


(Con t i nued ) 


oo  oooo 


r 


l  !  I  l  .  j  ;  t  :  ;  '  i j  I  i  n :  I.  .  i  i 


C 


c 

c 


IHUN8*IAIS( IHUNS ) 

URITE(LO,3002)  1STA,  ITEMS.  IHUNS, STABNO, STAHL, AIRPR, IFLOUL, GANNA, 

lPCRR 

NLINE8«NUNE$41 
QO  TO  1H 

AIR  PRESSURE  NOT  USED 

90  URITEaO,a#M)  STABNO, STABIL,  IFLOUL, GANNA, PERN 
NlINES‘NLINES+1 
GO  TO  IRS 

CUT  AND  COYER 

95  URIT£<LO,3014)  NTSEG,  ISTA.  ITEN9.  IHUNS,  LSEGL.  AR.  ARTULT,  luTS,  IUTR, 
1IPH.ICTT5 

IF ( ISUPPT.EG.S  !  SPDLT*A(N»3B> 

IF ( ISUPPT . EQ . 6  )  DSLURVACN.38) 

URITE<LO,3015!  STABNO, STABIL,  IFLOUL, GANNA, PERN,  UL  ,BE,SID£SL. 
1DSLURV, SPDLT.BACKFL 
NLINES-NLINES+1 

iee  ipr»nreach 

IF(UST(4).EQ.0)  URITE<L0,2222) 

OUTPUT  CALCULATED  SHAFT  DATA 

IFtLIST(S).EO.l)  GO  TO  3RR 

1PS»0 

ITVPE-2 

NLINE5»40 

DO  200  N-1,NSS 

NLINES-NLINES+1 

IF (NLINES.LT .40 )  GO  TO  182 

NLINES-0 

URITE(LO,2000 ) 

URITE<  LO,2010 ) 

182  NSHAFT-KN.l  ) 

NSSEC*B(N,2 ) 

8E*B  C  N, 29 ) 

BOB* B<N, 32! 


»  n.gc I 

ARSULT*B(N,39 ) 

IPRNL*SHAFT<  NSHAFT, 10 ) 
ICTSS*B(N,40) 

IADS*SHAFT< NSHAFT, 9 >*0.00003 
LSEGL*B  C  N, 35 ) 

NPB*B(Nt4) 

IELI1PB*CNP<NPB,2) 

TL*B(N, 11 >*12. 

R-BCN.8) 

NPORT ‘SHAFT ( NSHAFT , 23 ) 
NSSTVP»B<  N, IS ) 


EXCAUATED  UOLUNES 
UROCK*0.0 
OSOIL'9.0 
U«»CN,38) 

IF(NSSTVP.EQ.l)  UROCK-U 
IFINSSTVP.EQ.2 )  USOIL-U 
IUSR-UROCK 
IUSS-USOIL 


059370  0000 
059380  0000 
069390  0800 
059400  0000 
059410  0000 
059420  0000 
059430  0000 
059440  0000 
059450  0000 
069460  0000 
069470  0000 
0S9480  0800 
059490  0000 
059500  0000 
059510  0000 
0S9520  0000 
059530  0000 
059S40  0000 
0S9550  0000 
059560  0000 
059570  0000 
059580  0000 
059590  0000 
059600  0000 
059610  0008 
059620  0000 
059630  0000 
059640  0000 
059650  0000 
059660  0000 
059670  0000 
059680  0000 
059690  0000 
059700  0000 
059710  0000 
059720  0000 
059730  0000 
059740  0000 
059750  0000 
059760  0000 
059770  0000 
059780  0000 
059790  0000 
059800  0000 
059810  0000 
059820  0000 
059830  0000 
059840  0000 
059850  0000 
059860  0090 
059870  0000 
059880  0000 
059890  0000 
059900  0000 
059910  0000 
059920  0000 
059930  0000 
059940  0000 


(.Ci ■  n I  i micd ) 


A  I  -  7 


< 


(  I  )  . 


c 


c 


c 

c 

c 


c 

c 


c 

c 


c 

c 


c 

c 


IF(NSSTVP.EO.l)  CO  TO  UC 
GAflNA-BCN.  18) 
PERH«ABS(I(N,23)) 
IF(NSSTVP.E0.3 )  CO  TO  lie 
SOFT  GROUND  SHAFT 
AIRPR*B(N,27 ) 

IFLOUL*B( N, 42 ) 

$TABN0*B(N,24) 

HSTAB*B<N,2S ) 

IFCHSTAB.EQ.0)  STAB1L*TNCNE 
IF(HSTA«.EQ.l  )  STABIL*AlRPRS 
IFlHSTAB .EC . 2  !  STABIl*DEUATR 
IF (MSTAB.EO. 3  )  STABIL«GRDINJ 


CHECK  If  SEQUENT  IN  SAflE  SHAFT  AS  PREVIOUS  SEGITENT 

lie  if c ips . ec. nshaft j  co  to  ise 

CONVERT  STATIONING  OF  SHAFT  TO  INTEGER  UA'tUES 
NPTS'SHAFT  t NSHAFT , 2  ) 

npbs-shaft;nshaft,3  ) 

STA*CNPCNPBS,1  ) 

ISTA-STA/100. 

ISTA2-STA-ISTA4100 

ITENS-ISTA2/10. 

I HUNS* I STA2~ I TENS* 10 
IHUNS*IABS( IHUNS ) 

BFS*ShAFTCNSHAFT,7) 


CHECK  FOR  PORTAL 
IFCNPORT.EQ.0)  CO  TO  U2 

URIT£( LO.2200  )  NSHAFT, ISTA, IT£NS, IHUNS, IELNPB, IADS 

co  to  200 


CHECK  FOR  DUfinv  SHAFT 
112  ISHAPS-SHAFT( NSHAFT, 16) 

IF  £ ISHAPS. CT .0  )  CO  TO  1 15 

URITE(LO,2100  )  NSHAFT,  ISTA,  ITENS.  IHUNS,  IELNPB,  IADS 
GO  TO  200 


CALCULATE  CONSTRUCTION  TINE  FOR  THE  SHAFT 
115  NSECS-SHAFT (NSHAFT, 4) 

icts-0 

nexp-0 

SETUSH-0.0 
SETUPH-0.0 
DO  120  I-l.NSECS 
NN*N+I-1 


(CTS) 


120 


CTSS*B(NN,40 ) 

NEX*B<NN,7 ) 

NSSTVP«B(NN,15) 

CHECK  FOR  SHAFT 
IFCNSSTYP.NE.3) 

ICTS-ICTS+CTSS 
ICTS»ICTS+14 . *SETUSH*2B. ISETUPN 


NOT  CONSTRUCTED  IN  CUT  AND  COVER 

CALL  SETUP  ( HEX.  NEXP,  SETUSH,  SETUPft, SETUPR,  ITVPE ) 


130  UNITE  0.0,8882) 
NUNES»NLINES*1 
NSSTVP.BIN, 15) 


059950 

059950 

059970 

059980 

059950 

060000 

060010 

060020 

060030 

060040 

060050 

060060 

060070 

060080 

060090 

060100 

060110 

060120 

060130 

060140 

060150 

060160 

060170 

060180 

060190 

060200 

060210 

060220 

060230 

060240 

060250 

060260 

060270 

060280 

060290 

060300 

060310 

060320 

060330 

060340 

060350 

060360 

060370 

060380 

060390 

060400 

060410 

060420 

060430 

060440 

060450 

060460 

060470 

060480 

060490 

060500 

0606.0 

060520 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

eeee 

0000 

0000 

0000 

eeee 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0600 

0000 

0000 

0000 

0000 

0000 

0000 

0006 

0000 


0000 

0000 

0000 


(Con  t  i  iiui'd  ) 


A  I  AS 


AD-A107  890  ARMY  ENGINEER  WATERWAYS  EXPERIMENT  STATION  VICKSBUR8— ETC  F/8  13/13 
TUNNEL  COST-ESTIMATING  METHODS. (U) 

OCT  81  R  D  BENNETT 

UNCLASSIFIED  WES/TR/GL-81-10 _ NL _ 


oo  o  o  oo  oo  oo  o  o  oo  o  oo 


COS  I  IN  I  i  ^  l  in,’  (Coni  i  mi,  il  ) 


HOUHS* SHAFT ( NSHAFT ,  17 ) 

davs-shaftcnshaft.  10 ) 

IF(NS6TVP.EQ.3)  GO  TO  ISO 

write <lo. 2001)  n$haft,nsseg.ista,itens,ihjns,ielnpb,lsegl,bfs,8e, 

1B0B,  AR.ARSULT-  TL  ,  IUSS  ,  I  USA , X ADS ,  XCTSS , *  CTS »  I  ARAL ,  HOURS ,  DA  VS 
IFtNSSTYP.EQ.l 3  GO  TO  80S 

SOFT  GROUND  SHAFT 
IFINSTAB.NE.l >  GO  TO  MS 
COMPRESSED  AIR  USED 

WRITE C LO,  8003 )  STABNO , STAHL , AI RPR ,  I FLOUL . GANNA, PERM 
NLINES-NLINES+1 
GO  TO  800 
NO  COMPRESSED  AIR 

140  UR!T£(  10,8008)  STABNO. STABIL, IFLOUL.GANMA.PERM 
NLlNES-NllNES+1 
GO  TO  800 

CUT  AND  COUER 

ISO  URITE < LO . 2004 )  NSHAFT, NSSEG, I STA , 1 TENS , I HUNS, IELNPB , LSEGL , BFS , TL , 
1 I ADS, HOURS, DAYS 
WRITE (LO.2005)  GANNA, PERN 
NLINES-NllNES+1 
CO  TO  800 

THIs'sEGMENT  IN  SANE  SHAFt’as'pREUIOUS  SEGMENT 
ISO  URITE ( LO, 2150 ) 

NLINES-NLINES+1 
IF(NSSTVP.EO. 3 )  GO  TO  170 

URITE (LO, 2011)  NSSEG, IELNPB, LSEGL, BFS,BE, BOB, AR,ARSULT,TL, IUSS, 
1IUSR.ICTSS 

IF(NSSTYP.EO.l)  GO  TO  200 

SOFT  GROUND  SHAFT 
IFCMSTAB.NE. 1 )  GO  TO  16S 
COMPRESSED  AIR  USED 

URITE < LO, 2003 )  STABNO, STABIL, AIRPR. IFLOUL. GANNA, PERN 
NLINES-NlINES+1 
GO  TO  200 
NO  COMPRESSED  AIR 

1SS  URITE(LO,2002)  STABNO, STABIL, IFLOUL, GANNA, PERN 
NLINES-NlINES+1 
GO  TO  200 

CUT  AND  COUER 

170  URITE(LO,2012 )  NSSEG, IELNPB, LSEGL, BFS , TL 
URITE(LO,2O0S)  GANNA, PERN 
NLINES-NLINES+1 
800  IPS-NSHAFT 

URITE (LO, 2882) 

300 

FATAL  ERRORS  DETECTED  WHICH  NAY  NAKE  COST  CALCULATIONS 
MEANINGLESS .  TERMINATE  RUN  AND  GO  TO  NEXT  SYSTEM  DATA  DECK 
URITE(LO,1083) 

CALL  NEXSET(LO.LI) 

RETURN 


060S30 

0G0S40 

060SS0 

060S60 

060S70 

0E0S80 

060590 

060600 

060610 

060680 

060630 

060640 

060650 

060660 

060670 

060680 

060690 

060700 

060710 

060780 

060730 

060740 

0607S0 

060760 

060770 

060780 

060790 

060800 

060810 

060880 

060830 

060840 

060850 

060860 

066870 

060880 

060890 

060900 

060910 

060980 

060930 

060940 

060950 

060960 

060970 

0609B0 

060990 

061000 

061010 

061020 

061030 

061040 

061050 

061066 

061070 

061080 

061090 

061100 


(Cont inued) 


Al  29 


c  Mine  eeee 

c  mmmimmitiiimuimtmmmmmmummmiimt  36U2o  eeee 

1080  F0RMAT(/,3SH  FATAL  ERROR.  HAUL  SLOPE  IN  SEGMENT.  IS, 9H  IN  REACH,  0(1130  0000 

i  is.obh  Exceeds  s  percent  —too  steep  por  a  train)  06ii4o  eeee 

ltai  format(/.'  fatal  error,  excavated  dimension  in  segment-, is,-  in  asnse  eeee 

IREACH',16, '  IS  TOO  SMALL  FOR  A  TRUCK, USE  TRAIN  OR  CONUEVOR'  )  361160  0600 

1MB  FORHAT(//,lX,10OdH*>,/,10X.'  EXECUTION  HALTED  AFTER  SUBROUTINE  061170  6000 
1  CALCS  DUE  TO  ERRORS  './. IX, 100(1H* ) )  061180  0000 

ieea  formats.'  fatal  error,  slope  of  segment*. is.'  in  reach'.is.  06iiso  eeee 

1  '  EXCEEDS  86  PERCENT  —TOO  STEEP  FOR  MUCK  TRANSPORT  METHODS  CON  061200  0000 
8SIDERED'  )  061210  0000 

1026  FORMATS,'  FATAL  ERROR-  ALL  TRUCK  MUCK  TRANSPORT  IS  SPECIFIED  IN  061220  0000 
1  SEGMENT', IS, '  IN  REACH', IS.'  IN  UHICH  COMPRESSED  AIR  IS  USED')  061236  0000 
1030  FORMAT ( /'  SSt*  REMINDER  ****  USE  OF  COMPRESSED  AIR  IN  SEGMENT'  061246  0000 
IIS,'  IN  REACH', IS,'  REQUIRES  USE  OF  CONUEYOR-TRUCK  TRANSPORT  MET  061250  0000 
2H0D  RATHER '/20X, 'THAN  INPUT  METHOD')  061260  0000 

2000  FORMAT< 1H1.42C 1H* ) , '  CALCULATED  SHAFT  DATA  ',  061270  0000 

146<1H*  )/✓, '  SHAFT  SEG  STATION  ELEU  AT  LENGTH  ISHAFT  DIMENSIONS*  *  061280  0000 
2SADUANCE  RATES**  LINING  *EXCAU  VOLUME*  SIZE  OF  CONSTRUCTION  RML-  061290  0000 
3  HOURS  DAYSV12X,  'ALONG  BOTTOM  (FT)  FINISH  EXCAU  EXCAU  AVER  061300  0000 
4AGE  UNIFORM  THICK  SOIL  ROCK  DISPOSAL  TIME  CDAVS)  MAX  PER  061310  0000 

5  PER' /12X, 'TUNNEL  OF  SEG  (FT)  (FT)  U/0.8.  USED  061320  0000 

6  (IN)  (CY/FTHCV/FT)  AREA  SEG  SHAFT  (CV/  DAY  UEEK  061330  0000 

7V12X  'ALIGN. ',36X,' (FT/DAY)  (FT/DAV  )  ',24X, '  (ACRES )',  16X ,'HR )'  )  061340  0000 

2001  F0RMAT(1X,I4,15,I6,1H+,211,I7,I8,F7.2,2F6.2,2F8.1,F9.2,2I7,2I8,  0613S0  0000 

12I6.2F6.1)  061360  0000 

2002  FORMAT ( 21X, FS. 1,2X,A6,6X, 19, 1X,F 11 . 1 ,E9 .2 )  061370  0000 

2003  FORMAT ( 21X, FS. 1,2X,A6.F6.1, 19, 1X,F11.1,E9.2)  061380  0000 

2004  FORMAT ( IX, 14, IS, 16, lH+,211, 17, 18, F7,2,28X,F9.2, 14X, I8,20X,2F6. 1 )  061390  0000 

2006  FORMAT (S5X,F6. 1.E9.2  )  061400  0000 

2010  FORMAT (  33(2H— ,2H  >/21X, '***STABILIZATION***  DEUATERING  *SOIL  061410  0000 

1  PROPERTIES*' /21X, 'NUMBER  METHOD  AIRPR  (GPM/UELL)  UNIT  UT  PER  061420  0000 
2M'/3SX, ' (PSI ) ' , 16X, ' (PCF )  (CM/SEC)'//)  061430  0000 

2011  FORMAT (SX, I5,8X,2IB,F7.2,2F6.2,2F8. 1,F9.2,2I7,8X, IS )  061440  0000 

2012  FORMAT (SX, I5,8X,2I8,F?.2,28X,F9. 2 )  061450  0000 

2150  FORMAT (IX)  061460  0000 

2100  FORMAT ( IX, 131dH-)/lX,I4,5X,I6, lH+,211, I7.22X, '  THIS  SHAFT  IS  A  061470  0000 

1DUNMV' ,22X, 18  )  061480  0000 

2200  FORMATdX,  131  < 1H-1/1X,  14, 5X,  IS,  17,22X, '  THIS  SHAFT  IS  A  061490  0000 

1P0RTAL' ,21X, 18 )  061500  0000 

2222  FORMATdX. 13H1H-) )  061510  0000 

3000  F0RHATdHl»41dH*).'  CALCULATED  TUNNEL  DATA  '  061520  0000 

1,4S( 1H* )//, '  REACH  SEG  STATION  SLOPE  8TUNNEL  DIMENSIONS*  **ADUAN  061530  0000 
2CE  RATES**  LINING  *EXCAV  VOLUME*  PUMP  PUMP  CONSTRUCTION  RML-  0615*0  0000 
3H0URS  DAYS'/12X  'AT  LEFT  LENGTH  FINISH  EXCAV  EXCAU  AVERAGE  UNIF  061S50  0000 
40RM  THICK  SOIL  ROCK  FLOU  HEIGHT  TIME  (DAYS)  MAX  PER  P  061560  0000 
SER'/iax.'OF  SEC  (FT)  (FT)  (FT)  U/O.B.  USED  (I  061570  0000 

6N)  (CV/FT ) (CY/FT )  RATE  (FT)  SEG  REACH  (CV/  DAY  UEEK'/40X  061580  0000 

.  7, '(FT)  (FT/DAY)  (FT/DAY)'. 25X.'(GPM)',22X, 'HR)' )  061590  0000 

3001  F0RMAT(IX.I4, 15,16, 1H+, 211, 16.2F7. 2, F6. 2, F8.1,F9.1.F9. 2,217,18, 17,  061600  0000 

_ 13IS.2F6.1)  061610  0000 

3002  F0RMATdlX.IS,lH+,2Il,F7.1,2X,A6,F6.1,I9,lX,Fll.l.E9.2)  061620  0000 

3004  FORMAT ( IX, 14, IS, 16, 1H+.2I 1, I6,26X,F8> 1,F9. 1,9X,2I7,8X, 17,216, 6X,  061630  0000 

12F6.1 )  061640  0000 

3005  F0RMAT(2lX,FS.1.2X.A6,6X,IB,lX,Fll.l,E9.8,F8.1,F8.a,F6.2,2F7.1,  061660  0000 

'.Fi.O.Tlfa.'  ')  061660  0000 

3010  FORMAT (  33<6h— ,2H  )/12X, 'AIRLOCK  ***STABILIZATION***  DEUATER  061670  0000 

1ING  *60 1L  PROPERTIES*  CONCRETE  *CUT  AND  COVER  SEOMENT  PROPERTIES*  061680  0000 


(Continued) 


A130 


oooo 


(  '(  'S  i  l  '\  !  i  .1  ill’  I  (  .  I  iinu.il 


c 


c 

c 


c 


c 


c 

c 


c 

c 

c 


c 


UDS  •TRDATA(NREACH121 ) 
UBACEX*TRDATA ( N REACH, 22 ) 
UBACDS*TRDAT  A ( NREACH , 23 1 

NPBS»SHAFT(NSHAFT,3 ) 
DDS»SHAFTCNSHAFT,6> 
CD$«SHAFTCNSHAFT.6 ) 
HH*$HAFT(NSHAFT.8) 
NSEGSA* I AB5 ( NSEG5 ) 


DETERMINE  NUMBER  OF  SHIFTS  IN  A  UORK  DAV 
SHIFTS* 1. 

IF ( HOURS. GE. 12.  )  SH1FTS-2. 

IF (HOURS . GE .21 .  )  SHIFTS-3. 

CALCULATE  COST  FACTORS  FOR  LENGTH  OF  UORK  UEEK 
IF ( HOURS/SHIFTS . LE .8 .  )  CFLUUK* ! 6. 88+0 . 192* ( DAvS-4.  )**2 
1  +0.384*SHIFT$  )*SHIFTS/H0URS 
IF (HOURS /SHIFT S .GT .8.  !  CFLUUK* (0 . 76+0 .024*1 DAYS-4 .  )**2 
1  +0.048*SHIFTS)*(1.S-4.*SHIFTS/HOURS> 

CFEUUIC*  (3. 75*30.  /  HOURS  )/DAYS 


ALOCK«1.0 

CLIND-0. 

UCMCP-0. 

IF( ISHAPE .EQ.0 .OR. DTCA . EQ . 0 .  )  GO  TO  S 

CALCULATE  COST  OF  INSTALLATION  OF  CONUEVOR  I N  FREE  AIR  FOR 
CONUEVOR+TRUCK  TRANSPORT.  AND  COST  OF  COMPRESSED  AIR  PIPING 
CALL  CUINFAC A,CNP,CUnSL,HH,NPBS,NS£GS,RMLMAX,DTCA,NRSEGl, 

1  CLIND,UCMCP,NTSHAX,NPMAX) 

CALCULATE  NUMBER  OF  AIR  LOCK  LOCATIONS  AND  LENGTH  OF  LOCK 
CALL  LOCKLT ( A, NSEGS, RMLMAX, MTM ,  ALOCK , ALOCKL,  NTSK AX, NRSEG 1  > 


5  Rl-0.0 

DO  10  IJ-l.NSEGSA 
IFCNSEGS.GT.0 )  I-NRSEG1+IJ-1 
IFCNSEGS.LT. 0)  I-NRSEC1-IJ+1 
TSEGL*A( 1 ,45 ) 

10  RL-RLtTSEGL 


RCL-0. 

RCE-0. 

RCf1*0. 

RCT-0. 

NLINES-60 


CALCULATE  TUNNEL  COSTS  FOR  EACH  SEGMENT 


DO  S00  IS* 1 , NSEGSA 

I •SEQUENCE  NUMBER  OF  TUNNEL  SEGMENT 

I-NRSEGl+IS-l 

NPS-ACI.l?) 

IFCNSEGS.GT.0)  GO  TO  110 

I«NRSEGl-ISn 

NPS-AU.1B) 

110  NPL  *0(1,2) 

NPR  *ACI,3) 


062820 

062830 

062840 

0628S0 

062860 

062870 

062880 

062BS0 

062900 

062910 

062920 

062930 

062940 

062950 

062960 

062970 

062980 

062990 

063000 

063010 

063020 

063030 

063040 

063050 

063060 

063070 

063080 

063090 

063100 

063110 

063120 

063130 

063140 

063150 

063160 

063170 

063180 

063190 

063200 

063210 

063220 

063230 

063240 

063250 

063260 

063270 

063280 

063290 

063300 

063310 

063320 

063330 

063340 

063350 

063360 

063370 

063380 

063390 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 


0000 

0000 

0000 

000e 

0000 

0000 

oooe 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 


0000 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0009 

0000 
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NPLOCK*  ABS<A(I,36>) 

DTHLOK-HH 

PUNPLT«DTHLOK4DN*S280. 

oo  to 

C  CALCULATE  LENGTH  OF  PIPING  FOR  COMPRESSED  AIR 
700  IF(  AIS(A( 1,36)). EQ .NPLOCK )  GO  TO  720 
NPLOCK-  AIS(A(  1,30 ) 

DTHLOK-CNP<  NPS. 2  1 -CNP ( NPLOCK , 2  ) 

DLOCK-ABSCCUMSlCNPLOCK  )-CUM$lCNP8S)  ) 

72#  PUNPLT-DM*5280 .  -DLOCK+DTHLOK 

IF<DLOCK.GT. 0. 001 )  hSFA- < CNP< NPBS ,2  )-CNP( NPLOCK, 2  )  l/DLCCK 
HSCA-  <CNP<  NPLOCK  ,2  J-ELAUG  )/  (0(1*5280 .  -DLOCK  ) 

C  . . - . 

C  CALCULATE  SETUP  COST  FOR  TUNNEL  SEGMENT  I 

750  CALL  CSETUP ( A. B, NSEGS, NRSEG1 , BE, hh ,  I TvPE ,  I  , SETuSu, SETUP", SET jPR, 

1  CLES.CEES, CMES, CFLUUK.CFEUUK, NTSTvP ,  DSES, DM£S, DRES ,  NTSMAX, NSSMAX  ) 

C  . . - . . . 

C  CALCULATE  COST  OF  EXCAUATION  IN  rUNNEL  SEGMENT  I 

CALL  CCEX < CLE, CEE.CME, ITVPE, ME x.AR, BE ,RS,I SHAPE , SFA, SFP , 

1  PSOIL, STASNO.DTRNCh. CROCK, SIDESL.UBOx.USOIL.vRCCK, PHI, 

2  DCENT, HOURS, V,DM, MSTAB, CFLCA, CFLUUK , CFE JuK, NTSTvP : 


CALCULATE  COST  OF  MUCK  LOADING  IN  TUNNEL  SEGMENT  I 
CALL  CMUKLD ( CLNL , CENL , CHML . I T VPE , MEX , AR , DM , U , v , RHL , RMLMAx , 
1  MSTAB, CFLCA, CFLUUK.CFEUUK, HOURS  ) 


C 

C 


c 

c 


c 

c 


c 


CALCULATE  MUCK  TRANSPORTATION  AND  HOISTING  COSTS  FOR 
TUNNEL  SEGMENT  I 

CALL  CMTAH(CLMT,CEMT,CMMT,CLMH,C£MH,CHMH, ITVPE, MTM, DM, AR, 
1HSFA,U,HH, LINING, RML . RMLMAX, HSL0PE, BE, ISHAPE.Rl.UCLT.UCET. v.uCLMH, 
2HSCA.UCEMH, MSTAB, DLOCK.CLIND, HOURS, OPEN, DCENT,UBACEX.UBACDS,UBCX, 

3  USOI L, CROCK, TOTBOX, CFLUUK, CFEUUK, CFLCA, DDS, NTSTvP, DTRNCH, DROCK  ) 

CALCULATE  MUCK  DISPOSAL  COST  FOR  TUNNEL  SEGMENT  I 

CALL  CMUKDPf  CLMD, CEMD. CMMD , AR, U , CDS. DDS, UDS , NTSTvP, HOURS . 

1  CFLUUK.CFEUUK, ITVPE ) 


CALCULATE  COST  OF  TUNNEL  SUPPORTS  FOR  TUNNEL  SEGMENT  I 
IF ( LINING. EG. 4. AND .NTSTVP . EQ. 1 )G0  TO  1908 
IF ( LINING. NE .4. OR .NTSTVP ,NE. 1 )G0  TO  2800 
1980  CALL  ROCK<CLTS,CETS,CMTS,ROD,MEX.ISHAPE,BE,AR.RS,BE40,BE60, 

1ITVPE, V.NSTVP, §F, ISUPPT, TPLATE, T§EG,PSOiL,UEB,PTOTAL, 

2B0B.LINUT, MSTAB. CFLCA, HOURS, CFLUUK.CFEUUK, SFA, LINING, DM, 
3CLL,CEL,CML.CLFU,CEFU,CMFU) 

GO  TO  2500 
2000  CONTINUE 

CALL  CTSUP(CLTS,CETS,CMTS, ROD, HEX. ISHAPE. BE, AR.RS.BE40.BE60, ITVPE, 

1  V. DM. NTSTVP, BF.ISuPPT.TPLATE.TSEG.PSOIL.UEB.PTOTAL, BOB. LINUT, 

2  MSTAB ,CFLCA,HOURS, CFLUUK, CFEUUK.DsLURV.DTRNCH. I DECK,  DROCK, 

3  UTSTRT, UTUALE, SPDLT, UTSPfi . UTSP , UTANCH, TOTBOX , I BRACE, SFA ) 


CALCULATE  COST  OF  LINING  AND  FORMUORK  IN  TUNNEL  SEGMENT  I 
CALL  LININGKCLL, CEL, CML, CLFU.CEFU, CMFU,  ITVPE, LINING, ROD, MEX, 
1UEB,TL,BOB,8OB40,BF, V,DM, BO860, ISHAPE, BE,UCLT,UCET,MTM, 
lyCLMH.UCENH.SFA, NOFORPl,  AR,  NTSTVP,  PSOlC,PUATER,Ul,sfP, 
,3PORMA0, HOURS, CFtCA , CFLUUK , CFEUUK  ) 

3500  CONTINUE 


084488  0000 
064490  0000 
064500  0000 
064S10  0000 
064S20  0000 
064S30  0800 
064540  0000 
064550  0000 
064S6e  0000 
064S70  0000 
064580  0000 
064590  0000 
064600  0000 
064610  0000 
064620  0000 
064638  0000 
064640  0000 
064650  0000 
064660  0000 
064670  0000 
064680  0000 
064690  0000 

064700  0000 
064710  0000 
064720  0000 
064730  0000 
064740  0000 
064750  0000 
064760  0000 
064770  0000 
064780  0000 
064790  0000 
064800  0000 
064810  0000 
064820  0080 
064830  0000 
064840  0000 
064850  0000 


064860  0000 
064870  0000 
064880  0000 
064890  0000 
064900  0000 
064910  0000 
064920  0000 
064930  0800 
064940  0000 
064950  0000 

064960  0000 
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CALCULATE  GROUTING  COSTS  FOR  TUNNEL  SEGMENT  I 

CALL  COROUTCCLG.OEG.CNG.ITYPE.GI.ISHAPE.IE.AR.RS. NTSTYP. MST4B. 

1  DTUN .  HH,  HOURS ,  CFLUUK ,  CF  EUUK .  SSEGL,  PERM.  SFP.  DTG.TI  CIEG ) 

CALCULATE  COST  OF  PUMPING  FOR  TUNNEL  SEGMENT  I 
CALL  CPUMP ( CLP.CEP. CMP, NTSTyP, F LOU, PH, PI PI, AR, ITVPE, 

1  ELSURF.ELBOTM,  DAYS  .LINING,  PUMPTM ,  HEX, DTRNCH,  DROCK .  FLOUL . 

3  UELLS,  RL.  TIMEOU,  ISUPPT,  ELUATP,  ELNP*.  I UATER ,  CFLUUK , CFEUUIC ) 

CALCULATE  COST  OF  AIR  CONDITIONING  AND  COMPRESSED  AIR  FOR  TUNNEL 
SEGMENT  I 

CALL  CAIRC<CLAC.CEAC,CMAC.O,GT, BE, BF.AR. HOURS, NTSTYP. MSTAB.ITYPE. 

1  AIRPR,  SFA.ISHAPE.HH.CAUT.ALOCK.DTC.DTCA.PUMPLT.DM, 

a  ALOCICL.UCNCP,  CFLUUK.  CFEUUK. DAYS, Y, PERM) 


IFCLIST(6).£0.1)  GO  TO  810 
IF CNLINES+10. LT , SO  )  GO  TO  810 
URITECLO, 1000 ) 

NLINES-6 

CALCULATE  COST  FACTORS 
810  POP* ( 1 .+O.01BOM  )* ( 1 . +0 .01FPM ) 

CFC 1 ), CFC2  )  AND  CFO)  ARE  COMPOSITE  COST  FACTORS  FOR  L,  E,  AND  M. 
CFL*SHAFT(NSHAFT,12) 

CFE*SHAFT( NSHAFT, 13 ) 

CFM*SHAFT (NSHAFT, 14 ) 

RCF  *SHAFT  t  NSHAFT ,15) 

OF  < 1 ) ■ POPOCFLtRCF 
CFC2)*P0P*CFE*RCF 
CFC3)*P0P*CFM*RCF 

MULTIPLY  BV  COMPOSITE  COST  FACTORS  AND  THEN  OBTAIN  SEGMENT 

COSTS  PER  FOOT  TO  THE  NEAREST  DOLLAR 

ILC  1)*CLES*CFU)t.5 

IEC  1  )*CEES*CFt2)+.5 

IMC  1)*CMES*CF(3)+.S 

ILC  2  )*CLE  ICF C  t  )♦  .5 

IEC  2 )*CEE  *CFC2)f.S 

IMC  2 )*CME  ICF < 3 )>.5 

ILC  3 )*CLMLBCF( 1 )+.S 

IEC  3 )*CEML*CF(2 )♦ . S 

IMC  3  )*CMML*CFC  3  )>  .5 

ILC  4  )*CLMTtCF < 1 )♦ . 5 

IEC  4 )*CEMT*CF(2  )♦. 5 

IMC  4  )*CMMT*CF(3 )♦ .5 

ILC  5)*CLMH*CFC1 )+.S 

IEC  6  )*CEMHtCF(2 )♦  .5 

IMC  6)*CHMH*CFC3)+.5 

ILC  6)*CLMD«CFU)+.S 

IEC  6)*0EMD*CFC2)+.5 

IMC  6  )*CMMD*CF C3 )♦ , S 

ILC  7)*CLTS*CFC1  H.5 

IEC  7)*CETS*CFC2)+.S 

IMC  7)*CMTSBCFC3)+.S 

ILC  8)*CLL  ICFCDy.S 


064970 
06«980 
064990 
06S900 
065010 
06S020 
065030 
065040 
065050 
06S060 
065070 
065080 
065090 
065100 
065110 
065120 
065130 
065140 
065  ISO 
065160 
e6Sl?0 
065180 
065190 
065200 
065210 
065220 
065230 
065240 
065250 
065260 
065270 
065280 
065290 
065300 
065310 
065320 
065330 
065340 
065350 
065360 
065370 
065380 
065390 
065400 
065410 
065420 
065430 
065440 
065450 
065460 
065470 
065480 
066490 
066500 
066510 
065520 
065S30 
066640 


0000 

eeoo 

eeoo 

0000 

eeoo 

eeoo 

0000 

0000 

0000 

0000 

0000 

oooe 

0000 

0000 

0000 

oooe 

oooo 

oooe 

oooe 

oooo 

oooe 

oooe 

eeoo 

oooo 

oooo 

oooe 

oooo 
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141  RCL>RCL*TLC 
RCe*RCE*TEC 
RCI1-RCN*TNC 
RCT«RCL*RCE4RCN 
END  OF  COSTS  ON 
9M  CONTINUE 


A  SEGMENT  BASIS 


LIST  OUT  REACH  COSTS 
SSI  IF t  LIST ( 6 ) . EG . 1  )  GO  TO  860 

URIT£<  LO. 190?  )  SHAFTCNSHAFT.12J.RCL.  Shaft c nshaft, is  ) , 

1  SHAFT C NSHAFT, 13 l.RCE, SHAFT (NShAFT, 14  i.RCT.CFLUlX.RCT.CFEugF 
NLIN£S*NLIn£S+? 


ACCUNULATE  COSTS  OF  ALL  REACHES 
860  TUNLC*TUNLC*RCL 
TUNEC"TJNEC»RC£ 

TUNMC*TUNMC+RCM 

TUNTC*TUNTC»RCT 

TRDATAINREACH,17j*RCL 
TRDATACNREACH,18)-RCE 
TRDATACNREACH,19>-RCM 
TRDATACNREACH,20)-RCT 
END  OF  CCSTS  ON  A  REACH  BASIS 
959  CONTINUE 
RETURN 


1900  FORNATt 1H1.47C 1H*  ),2?H  TUNNEL  COSTS  ,46(1H*>// 

1129H  REACH  SEG  xxxxxxttxt mill  COS’  IN  DOLLARS  PER  FOOT  OF  TUNNE 


2L  XXXXXXXXXXXXXXXXXXX  SEG 

3129H  NO  NO  EXC  £XC 
ALIN  GROUT  PUMP-  AIR-  COST 
5129H  SETUP 

GCRM  ING  COND  (S/FT) 

7  z.ix.ilSfiH- :  i 


SEGMENT  SEGMENT 

MUCK  MUCK  MuCK  MuCK  SUP-  LIN- 
LENGTH  COST  / 

LOAD  TRAN  HOIST  DISP  PORTS  ING  F 
CFEE”:  (11900) 


1991  FORMAT (/IX, 13, IS, 2H  L, 1316. 8X, 112 

1992  FORMAT ( 9X,  2h  E, 1316, fix, Il2  ) 


1903  FORMAT ( SX,  2H  \  1316, 8x) 1 1 2  ) 

1904  FORMAT ( SX,  2H  T, 13 16, 18, 1 1 2 ) 

1007  F ORMAT (IX, 119(1 H-),//,  gx,  14HREGI0NAL  C0ST.6X. 10HCOST  INDEX. 10X, 

1  10H  --  LABOR  ,F5.2.SX,3lHTCTAL  REACH  LABOR  COST  . 19/ 

2  9X.9MFACT0R  ,F5.2.26X,10HEQUIPMENT  ,F5.2,SX, 

3  31HT0TAL  REACH  EQUIPMENT  COST  . 19/ 

4  49X, 10HMATERIALS  , F5 . 2, SX . 31HT0TAL  REACH  MATERIALS  COST  . 19/ 

5  43X, 16HLAB0R  WORK  UEEK  ,FS.2,SX, 

6  31HT0TAL  REACH  COST  . 19/ 

7  43X, 16HEQUIP  UORK  UEEK  ,F5.2) 

END 

SUBROUTINE  COSTSF (i, CNR .SHAFT , TRDAT A. NSSMAX , NPNAX , NSM AX , NTRMAX , 
1NTSHAX) 


066139  0090 
066149  0033 
9661S0  090e 
066169  0900 
066170  0000 
066180  0090 
066190  0000 
066200  0090 
966210  0090 
066220  0000 
066239  9000 
066240  0000 
966250  0000 

066260  0e00 

966270  eeee 
066280  9000 
066290  0090 
066300  0090 
066310  0000 
066320  3000 
066330  0000 
066340  0000 
066350  *000 
066360  000e 
066370  0000 
066380  0000 
066390  0000 
06640e  0000 
066410  0000 
066420  0000 
966430  0000 
066440  000e 
066450  9000 
066460  0000 
066470  0000 
066480  9000 
066498  000e 
066500  0000 
066510  0000 
066520  0090 
066530  0000 

966540  0000 

066550  0000 
066560  0090 

066570  0000 
066580  0000 
066590  9000 
066600  0090 
066610  0000 
066620  0000 
066630  0009 
066649  0000 
966650  0000 
966669  0000 

066670  0000 
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COSTSF  COLLECTS  ALL  OF  THE  SHAFT  COSTS  AND  0UTPuTS  THEM 
DIMENSION  IL<11  >.IE(11  l.IMt  11  >.CF(3) 

COMMON  /A/  LO.LI.Md,OM.LIST(40).TITLE(16«). STA»EG. ITvPE 
C0MH0N/0/  TUNIC , TUNEC ,  TUNMC ,  TUNTC 

DIMENSION  > <  NSSMAX, 43  ) . CNP  < NPHAX ,  2  > , SHAFT ( NSMAX, 23  > . TRDATA ( N'RHAX . 
1  23) 

INTEGER  SLCPF . SECPF . SMCPF . TLC , TEC , TMC 

INTEGER  TCES.TCE.TCNL.  TCMH. TCMD, TCTS, TCL. TCFU.TCP, ’CAC. 

1  TCG.TSCPF.TSC 

INTEGER  SCL, SCE, SCM, SCT 
INTEGER  TUNLC, TUNEC, TUNMC, TUNTC 
INTEGER  SFTTLC , SFTTEC , SFTtNC , SFTTC 
INTEGER  TLABOfi, TEGu IP. TMATER, TCOST 
INTEGER  RCL,RCE,RCM,RCT 

CALCULATE  COSTS  A  SHAFT  AT  A  TIME 

Y-0.0 

ITVPE-2 

SFTTLC-0 
SFTTEC-0 
SFTTMC-0 
SFTTC ■« 

DO  950  NSHAFT-1, NSMAX 

IF ( SHAFT ( NSHAFT, 1 ) .LT . -10 .£29 )  GO  TO  950 

BF-SHAFT(NSHAFT,7 ) 

NSSEG1 -SHAFT (NSHAFT.l 1 
NSEGS-SHAFT  <  NSHAFT.4 ) 

RMIMAX-SHAFT< NSHAFT, 10) 

DDS- SHAFT (NSHAFT,  5) 

CDS-SHAFT ( NSHAFT,  6 ) 

ISHAPS-SHAFTCNSHAFT,  16 ) 

HOURS  -SHAFT (NSHAFT. 17) 

DAVS  -SHAFT (NSHAFT, 18 ) 

NPORT  -SHAFTCNSHAFT.23) 

SFA-0.785 

SFP-3.14 

IF ( ISHAPS .E0.2 >  SFA-1.0 

IF ( ISHAPS .EG. 2 )  SFP-4.0 

DETERMINE  NUMBER  OF  SHIFTS  PER  WORK  DAV 

SHIFTS-1. 

IFCHOURS . GE • 12- )  SHIFTS-2. 

IF(HOURS. GE . 21 . )  SHIFTS-3. 

CALCULATE  COST  FACTOR  FOR  LENGTH  OF  UORK  UEEK 
I F ( HOURS/SH IFTS . LE . B . )  OF LUUK • ( 6 . 08+0 . 1 92* ( DAVS- 4 . )**2 
1  +0. 3S4XSHIFTS  1XSHIFTS/HOURS 

IFtHOIJRS/SHIFTS.GT .8.  1  CFLUUIC- ( 0 .76*0 .024*<  DAYS-4 .  )**2 
1  +0 . 048ISHIFTS  >*(1.5-4. *SHIFTS/HOURS ) 

CFEUVIK-  ( 3. 75*39  ./HOURS  J/DAVS 

CALCULATE  LENGTH  OF  SEGMENTS  REQUIRE  GROUTING ~AND  PUMPING” 

DTG-0. 


066660 

066690 

06679C 

0667ie 

06672e 

066740 

066750 

066760 

066770 

066780 

066790 

066800 

066810 

066820 

066830 

0668*0 

066850 

066860 

066870 

066880 

066890 

066900 

066910 

066920 

066930 

066940 

066950 

066960 

066970 

066980 

066990 

067900 

067010 

067020 

067030 

067040 

067050 

067060 

067070 

067080 

067090 

067100 

067110 

067120 

067130 

067140 

067150 

067160 

067170 

067180 

067190 

067290 

067210 

067220 

067230 

067240 

067250 

067260 


(ConL  i iiuod) 


ooo  ooo 


r 


COSTI'N  I  i  ,l  i  n  (Cmit  1  mu-.]  ) 


K 

mi 

loi 

10141 

lOlM 

55EGL 

HH 

PH»I ( I 
RML 

u 

UEI 

TPLATE 

FLOUL 


KI.  88) 
1(1,30) 
1(1.31) 
XI.  38) 
1(1.33) 
XI. 34) 

XI,  35) 
1(1,36) 
36) 

XI, 37) 
1(1,38) 
1(1,41 ) 
XI. 41  ) 
1(1,42) 


PSOIL  •8(1,30) 

PT0TAL*B( 1.31 ) 

PUATER-BCI.43) 

LABOR  COST  FACTOR  IN  COMPRESSED  AIR 
CFLCA*AIRPR«2/400  .  +  1.5 
IF (NSSTYP.NE.8.0R. AIRPR.LE.8. )  CFtCA.l. 


CALCULATE  SETUP  COST  FOR  SHAFT  SEGMENT  I 

CALL  CSETUP( A,8,NSEGS,NSSEG1 , BE, HH, ITVPE, I  .SETUSH.SETUPM.SETUPR. 
1  CLES, CEES, CMES , CFLUUK .  CFEUUK .NSSTVP, DSES. DMES .  DRES.NTSHAX.  NSSMAX ) 

CALCULATE  PUMPING  TIME 
PUMPTM-0. 

IF (FLOUL.LE .0. )  GO  TO  700 

PUNPTM- ( S . ♦ 14 . ISETUSH+28 . XSETUPM  )/DTP+7 . /DAVS/ AR 
AL-2.XH0URS 

IF (LINING. EQ. 1 )  PUMPTR*PUMPTN* ( 30 , +SHAFT ( NSHAFT, B >/AL*7 . /D AVS ) 

1  /DTP 

IF ( LI N1NG . EG . 2 )  PUMPTM-PUrtPTN*3« . / DTP 
700  CONTINUE 

CALCULATE  COST  OF  EXCAUATICN  IN~SHAFt"sEGMENT  I 

CALL  COEX ( CLE . CEE, CME ,  ITVPE . NEX . AR ,  BE , RS,  I SHAPS .  SF  A ,  SFP , 

1  PSOIL.STABNO, DTRNCH,DROCK,SIDtSL,UBOX, USOIL.UROCK.PHI, 

2  DCENT, HOURS, V, DM, MSTAB, CFLCA, CFLUUK , CFEUUK , NSSTVP ) 

CALCULATE  COST  OF  MUCK  LOADING  IN  SHAFT  SEGMENT  I 

CALL  CMUKLD ( CLML.CEML, CMML, I TVPE.MEX, AR, DM. U, V, RML, RMLMAX, 

1  MSTAB, CFLCA, CFLUUK, CFEUUK, HOURS ! 

CALCULATE  MUCK  HOISTING  COSTS  FOR  SHAFT  SEGMENT  I 

CALL  CMTAH ( CLMT. CEMT.CMMT, CLMH, CEMH.CMNM, ITVPE, MTM, DM, AR. 

1HSFA, U.HH. LINING. RNL.RMLMAX. HSLOPE.BE, ISHAPS,RL,UCLT,UCE'.V,UCLMH, 
2HSCA.UCEMH. MSTAB. DLOCK-CLIND, HOURS, OPEN, DCENT, uBaCEX.UBACDS.UBOX, 

3  U*OIL, uftOCK.TOTBOX, CFLUUK, CFEUUK, CFLCA, DDS, NSSTVP, DTRNCH.DROCK ) 

CALCULATE  MUCK  DISPOSAL  COST  FOR  SHAFT  SEGMENT  I 

CALL  CMUKDP(CLMD, CEMD.CMMD, Afl.U, CDS, DDS.VDS, NSSTVP, HOURS. 

1  CFLUUK, CFEUUK, ifvpfe ) 


067850 

067860 

067870 

067880 

06789e 

067800 

067810 

067820 

067830 

067840 

067860 

067860 

067070 

067880 

067890 

068000 

068010 

068020 

068030 

068040 

068050 

068060 

068070 

068080 

068090 

068100 

068110 

068120 

068130 

068140 

068150 

068160 

068170 

068180 

068190 

068200 

068210 

068220 

068230 

068240 

06B250 

068260 

068270 

068280 

068290 

068300 

068310 

068320 

068330 

068340 

0683S0 

068360 

068370 

068380 

068390 

068400 

068410 

068420 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0090 

9900 

0900 


(Cont  InuL'd) 
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■< 
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CALCULATE  COST  of  SHAFT  SUPPORTS  FOR  shaft  SEGMENT  I 
CALL  CT$UP(CLTS,C£TS.CMTS,RQD.MEX.ISHAPS.IE,AR.RS.BE4O,BE60,ITVPE. 
1  V.Dfl.NSSTVP, IF, IfUPPT,TPLAT£,TSEG,PS0IL.UEB,PTOTAL,BOI,  lINUT, 

8  NOTaI.CFLCA, HOURS, CFLUUK. CFEUUK, DSLURy.&TRNCh.IDECK.DROCK, 

3  UTSTRT.UTUALE , SPDLT , UTSPD, UTSP, UTANCH , TOTIOX , I IRaCE.  SF A ) 

CALCULATE  COST  OF  LINING  AND  FORMUORK  IN  SHAFT  SEGMENT  I 
CALL  LINING1  (CLL,C£L,CML,CLFU,CEFU,CMFU,  ITYPE, LiMNQ.ROD, HEX, 
1UEB.TL, SOI, SOSAS, IF ,Y, DM,10164, ISHAPS, BE.UCLT.UCET.MTM, 
8UCLAH.UCENH.$FA,N0F0RN,AR,NSSTYP.PS02l,PUATER,UL.SFP, 

3F0RHAR, HOURS, CFLCA, CFLUUK, CFEUUK ) 

CALCULATE  GROUTING  COSTS  FOR  SHAFT  SEGMENT  I 

CALL  CGROUTtCLG.CEC.CMG, ITYPE, GI.ISHAPS. BE, AR.RS.NSSTYP.MSTAB, 

1  DTUN.HH, HOURS . CFLUUK , CFEUUK , SSEGL , PERM . SFP , DTG , T I MEG  > 

CALCULATE  COST  OF  PUMPING  FOR  SHAFT  SEGMENT  I 
CALL  CPUMPlClP,CEP.CMP,NSSTYP,FLOU,PH,PIPL,AR,ITYPE, 

1  ELSURF.ElBOTM. DAYS, LINING, PUMPTM, HEX. DTRNCH.DROCK.FLOUL, 

2  (JELLS, RL.TIMEDU,  ISuPPT.ELUATR, ELNPB,  IUATER, CFLUUK, CFEUUK  ) 

CALCULATE  COST  OF  AIR  CONDITIONING  AND  COMPRESSED  AIR 
FOR  SHAFT  SEGMENT  I 

CALL  CAIRO ( CLAC, CEAC.CMAC.Q.QT, BE jBF.AR. HOURS, NSSTYP.MSTAB, I TYPE, 

1  AIRPR,  SF A, ISHAPS.HH.CAUT, ALOCK, DtC, DTCA.PUHPLT.DM, 

E  ALOCKL , UCMCP , CFLUUK , CFEUUK , DAYS , V , PERM ) 


IFC LIST ( 7 ) .EG. I >  GO  TO  81S 
IF (NLINE5+1 1 . LT.60 )  GO  TO  810 
URITEt  LO.20O0 ) 

NLINES*6 

CALCULATE  COST  FACTORS 
81S  POP-U.40.Oi*Ot'mtl.+O.Ol*PW) 

CF< 1 ),CFt 2 )  AND  CFO)  ARE  COMPOSITE  COST  FACTORS  FOR  L,  E,  AND  M 
CFL*SHAFT(NSHAFT, 12 ) 

CFE«SHAFT(NSHAFT,13) 

CFH-SHAFTtNSHAFT,14) 

RCF.SHAFTCNSHAFT.15) 

CFtl)-POP*CFL*RCF 
CF  C2 )  .POPJCFEIRCF 
CFO)-POP*CFM*RCF 

MULTIPLY  BY  COMPOSITE  COST  FACTORS  AND  THEN  OBTAIN  SEGMENT 

COSTS  PER  FOOT  TO  THE  NEAREST  DOLLAR 

IL<  1  )*CLES*CF< 1 J+.S 

IEC  1  )*CEES*CF<2 )+ .5 

IMt  1  )*CMES*CF ( 3 )*.S 

I L <  8  )*CLE  *CF< 1  )♦.$ 

IEC  2  ) -CEE  ICF (2  )♦ . 5 
IMt  8)*CM£  *CFt3 )♦. 5 
ILC  3)*CLMLXCF(1 )  +  .5 
IE<  3>*CENL*CF(2H.S 
IMt  3  )»CMML*CF(3 H.S 


068430 

•63X44 

068454 

068460 

•68470 

068480 

068490 

068600 

068610 

468524 

068530 

068540 

068550 

068560 

068570 

068580 

068590 

068600 

068610 

068620 

068630 

068640 

0686S0 

068660 

068670 

068680 

068690 

068700 

068710 

068720 

068730 

068740 

068750 

068760 

068770 

068780 

068790 

068800 

068810 

068820 

068830 

068840 

068850 

068860 

068870 

068880 

068890 

068900 

068910 

068920 

068930 

068940 

068950 

068960 

068970 

068980 

068990 

•69000 


(Coni  i  iiucd ) 


ooo 


WRITE(LO,«0B1>  NSHAFT, NSSEG,  <  IK  JJJ >,  JJJ»1, 11  ),SLCPF,TLC 
WRITE (LO'2002)  (IE(j3j).jjj-i,u),secpf,-ec 

WRITE  <W,  8003)  CIM(JJJ>.JJJ*1,11).SNCPF.T)1C 

WRITE (LO.8004)  TCES.TCE.TCNL.TinH.TCND.TjTS.TCL.TCFU, 

1  TCG.TCP, TCAC, TSCPF, ISStCl ,  TSC 

NLINES-NLINES+B 


C  ACCUMULATE  SHAFT  SEGMENT  COSTS  INTO  COST  OF  SHAFT 
I4«  SCL-SCL+TLC 
SCE-SCE+TEC 

scm-scm+tmc 

SCT-SCL+SCE+SCM 

C  END  OF  COSTS  ON  A  SEGMENT  BASIS 
900  CONTINUE 

C  - 

C  LIST  OUT  TOTAL  COST  OF  SHAFT 
850  IF<LIST(7).E0.1)  GO  TO  860 

WRITE ( LO. 1004 )  SHAFT ( NSHAFT, 12  ) , SCL . SHAFT t NSHAFT .15). 

1  SHAFT (N§HAFT,  13  ),SCE,  SHAFT  (NSHAFT  ,14),  SCM,  CFLUIJK,  SCT.CFEUUK 
NLINES-NLINEST7 

ACCUMULATE  COSTS  OF  ALL  SHAFTS 
860  SFTTLC*SFTTLC+SCL 
SFTTEC ■ SFTTEC+SCE 
SFTTPIC-SFTTMC+SCM 
SFTTC-SFTTLC+SFTTEC+SFTTMC 
C 

SHAFT (NSHAFT, 19  l-SCL 
SHAFT( NSHAFT, 20  )*SCE 
SHAFT(NSHAFT,21 )«SCM 
SHAFT(N$HAFT,22)*SCT 
C  END  OF  COSTS  ON  A  SHAFT  BASIS 
950  CONTINUE 

c  - 

C  PRINT  REACH  COST  SUMMARIES 
IF(LIST(8).E0.1)  GO  TO  96S 
WRITE  ao,  1500) 

NLINES*5 

DO  960  NRE ACH • 1 , NTRN AX 
IF(TRDATA(NREACH,1 ) . LT .-10.E29  )  GO  TO  960 
NSHAFT  »TRD ATA ( NREACH, 1 ) 

RCL*TRDATA(NREACH.1‘>) 

RCE-TRDATA< NREACH, 18) 

RCM«TRDATA( NREACH, 19) 

RCT-TRDATA  <  NREACH, 20 ) 

URITE (10 . 1 S01 )  NREACH, NSHAFT , SHAFT < NSHAFT , 15 ) , <  SHAFT ( NSHAFT , J J ) , 

1  JJ-12.U).RCL.RCE,RCN,RCT 
NLINES-NLINES+2 
IF (NLINES.LT. 58)  GO  TO  960 
WRITE (LO, 1500) 

NLINES-S 
960  CONTINUE 
965  CONTINUE 


PRINT  SHAFT  COST  SUMMARIES 
IF C LIST ( 9  )  .EG. 1 )  GO  TO  975 


069690  00 
069600  00 
069610  00 
069620  01 
069630  00 
069640  00 
069650  01 
069660  01 
069670  01 

069680  00 

069690  00- 

069700  00 
069710  00 
069720  00 
069730  00 
069740  00 
069750  00 
069760  00 
069770  00 
069780  00 
069790  00 
069800  00 
069810  00 
069820  00 
069830  00 
069840  00 
0698S0  00 
069860  00 
069870  00 
069880  00 
069890  00" 
069900  00- 
069910  00 
069920  00 
069930  00 
069940  00 
069950  00 
069960  00 
069970  00 
069980  00" 
069990  00" 
070000  00 
070010  00 
070020  00- 
070030  00 
070040  00 
070050  00 
079060  00 
070070  00 
070080  00 
070090  00 
070100  00 

070110  00 

070120  00 

070130  00 

070140  00 

070150  00 
070160  00 


( <  .Mil  i  i tin  •< I  i 


COS  II  N  l.isi  in.'. 


-10. CSS  >  GO  TO  870 


USITC  0.0,1000) 

NllNtl-S 

DO  970  N$HAFT»1,NSMAX 

ifcshaft<nshaft.i >.lt. 

SCL«$HAFT (NSHAFT,  *  9 ) 

$CE»SHAFT<NSHAFT,20 ) 

0CM*SHAFT(NSHAFT,21 ) 

SOT-SHAFT CNSHAFT. 22) 

WRITE ( 10. 1601  )  NSH AFT, SHAFT (NSHAFT, 15  ) , (SHAFT (NSHAFT ,JJ),JJ*12,14) 

i  .set, set, sen, sct 
NLlNES-NLlNES+2 
IF(NLINES. LT .58 )  GO  TO  970 
WRITE  0.0, 1600) 

NLINES-S 
970  CONTINUE 
975  CONTINUE 

TOTAU  PROJECT  CONSTRUCTION  COSTS 

TLABOR-TUNLC+SFTTLC 

TEQUIP*TUNEC+SFTTEC 

TMAT£R-TUNMC*5FTTNC 

TCOST-TUNTC+SFTTC 

PRINT  PROJECT  SUMNARV  SHEET 
URITEO.0,2 )  TITLE 

URITE(LO,  1005 )  PM.TUNLC.OM.TUNEC.TUNMC.TUNTC 
URITEC  L0»  1006  )  SFTTLC . SFTTEC .  SFTTPtC ,  SFTTC 
URITE ( 10. 1007 )  TLABOR, TEQUIP. TMATER. TCOST 


RETURN 


2  FORMATUH1,10</).S0X,?0(1H*),/,S0X,1H*,68X,1HI. 

110< /,S0X, 1HS.2X,  16A4.2X, 1HX ) , 

3  /.50X,1H*.68X,1H»./,S0X,70<1H* ),///) 

1004  FORMAT ( IX, 119( 1H- ) ,//,  ?X,  14HREGI0NAL  C0ST,6X, 10HCOST  INDEX, 10X 

110H  —  LABOR  , FS.2,  SX.25HSHAFT  LABOR  COST  . 19/ 

2  7X, SHF ACTOR  ,F5.2,2GX,10H£9UIPHENT  .F5.2.5X. 

3  25HSHAFT  EQUIPMENT  COST  ....,19/ 

4  47X, 10HNATERIALS  ,F5.2,  SX,2SHSHAFT  MATERIALS  COST  - ,19/ 

5  41X,16HLAB0R  UORK  UEEK  ,FS.2.5X,25HSHAFT  COST  . 19/ 

6  41X, 16HEGUIP  WORK  UEEK  .FS.2) 

1005  FORMAT(50X, 17HPR0FIT  MARGIN  .FS.2.3X, 

1  36HT0TAL  TUNNEL  LABOR  COST . (01000), 19/, 

2  50X, 17H0UERHEAD  MARGIN  ,F5.2,3X, 

3  36HT0TAL  TUNNEL  EQUIPMENT  COST . ,19/. 

4  7SX.36HT0TAL  TUNNEL  MATERIAL  COST... . ,19/, 


COST . ,19/) 

LABOR  COST . .19/ 

EQUIPMENT  COST . .19/ 

MATERIAL  COST . 19/ 

COST . ,19) 


S  7SX.36HT0TAL  TUNNEL 

1006  FORMAT*//, 75X.36HT0TAL  SHAFT 

1  7SX.36HT0TAL  SHAFT 

2  75X.36H TOTAL  SHAFT 

_ 3  75X.36HT0TAL  SHAFT  WV*  I  I if  i 

1007  FORMAT < // . 75X . 3SHT0T AL  PROJECT  LABOR  COST  . .110/ 

1  75X.3SHT0TAL  PROJECT  EQUIPMENT  COST . 110/ 

2  7SX.35HT0TAL  PROJECT  MATERIAL  COST . 110/ 

3  76X.36HT0TAL  PROJECT  COST .  110) 

1600  FORNAT( 1H1.1X, 34C1H*  ), 50H  TUNNEL  REACH  COST 

in  A  R  V  ,3S( 1HS )//  14X, 19HEXIT  REGIONAL  ,6(1HI>, 


SUM 


070170 

070180 

670190 

070200 

070210 

070220 

070230 

070240 

670250 

070260 

070270 

070280 

070290 

070300 

070310 

070320 

070330 

070340 

070350 

070360 

070370 

070380 

070390 

070400 

070410 

070420 

070430 

070440 

070450 

070460 

070470 

070480 

070490 

070500 

070510 

070520 

070530 

070540 

070550 

070560 

070570 

070580 

070590 

070600 

070610 

076620 

070630 

070640 

070650 

070660 

070670 

070680 

070690 

970706 

070710 

070780 

070730 

070740 


0000 

0600 

9000 

9000 

9000 

9000 

0000 

0000 

0009 

0000 

0000 

0009 

0000 

0009 

0009 


0000 


009e 

0eoe 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0090 

0000 

0000 

0090 

0000 

0090 

0900 


0000 

0000 

0000 

0009 

0000 

0600 

0000 

0000 

0000 

0000 

0000 

0000 

9900 

0900 

0906 

9099 

9006 

9000 

9996 
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COSTl'N  listing  ( Cont  i  mit-il ) 


SEGMENT  SEGMENT 
EXC  MUCK  MUCK 
LENGTH  COST 

LOAD  HOIST 
(FEET)  (81090) 


LIN  OR 

/ 

DISP  PORTS  INC  FORM 


MUCK  SUP-  LIN- 


I  1IHC08T  INDEXES,  «(1H*  ), 10X.17(lh» >, 15H  COSTS  (91099)  .lSUH*)/. 

5  3M8hreach  shaft  c6st  fact6r  labor  eouip  matl. 

4  10X.41HIABOR  EOUIPMENT  MATERIAL  TOTAL./.1X. 1 19( 1H- )/ > 

1501  FORMAT ( 4X. 13, 8X,  I3,7X,F4 . 2,8X, 3t  4X.F4.2 ),t 1X,4(3X, IB  >/ ) 

ISM  FoRMATt lHi,lX.41  ( 1H*  ),37N  SHAFT  COST  SUMMARY  . 

1  41  ( 1H> )//  83X,  14HREGI0NAL  ,6(  INK),  12HC0ST  INDEXES, 6 ( IHlt ). 

a  10X. 17(  1H* ),15H  COSTS  (S1M9)  , 18 ( 1HI  )/, 3X.5HSHAFT ,  14X, 

3  33HC0ST  FACTOR  LABOR  EOUIP  NATL.1BX. 

4  41HLAB0R  EOUIPHENT  MATERIAL  TOTAL. /. IX. 1191 1H- )/  ) 

1SS1  FORMAT (4X, I3,18X,F4.8,2X,3(4X,F4 .8 ),11X,4(3X,I9)/ ) 

MM  FORMAT ( 1H 1,45 ( 1H*  ),  83H  SHAFT  COST  ,S2( 1H*  )// 

1184H  SHAFT  SEG  lt*X»***|**l***  COST  IN  DOLLARS  PER  FOOT  OF  SHAFT 
ittttSSttttttttt  SEG 
318SH  NO  NO  EXC 
40UT  PUMP-  AIR-  COST 
6129H  SETUP 

5  INC  COND  (S/FT) 

7  /.lX,U9(iH->) 

8491  FORMAT ( /, IX, 13, I5,8H  L. 1816, 8X, 119) 

8942  F0RMAT(9X,  2H  E, 1216, 8X, I 19 ) 

2993  FORMAT (9X,  2H  N, 1216, 8X, 119 ) 

2994  FORMAT (9X,  2H  T. 1216.18, 119 ) 

3MS  FORMAT < 1H1.6H  SHAFT, 14, '  1$  A  PORTAL  OR  A  DUMMY  SHAFT  ALL  CO 
1STS  ARE  ZERO') 

C  . . . . 

c 

RETURN 

END 

SUBROUTINE  CU INFA l A, CNP , CUMSL , HH . NPBS , NSEGS , RMLMAX , DTCA. NRSEG 1 . 
lCLIND.UCMCP.NTSHAX.NPMAX) 

DIMENSION  A(NTSNAX,68),  CNP(NPMAX,2),CUMSL(NPMAX) 

THIS  SUBROUTINE  COMPUTES  THE  TOTAL  LENGTH  OF  SEGMENTS  UHICH  ARE 
EXCAUATED  IN  FREE  AIR  BUT  NEED  CONuEYOR  BELT  FOR  FURTHER 
EXCAUATION  IN  COMPRESSED  AIR.  IT  ALSO  COMPUTES  THE  COST  OF 
COMPRESSED  AIR  PIPING 

DTFACN-0. 

UCMCP-9. 

NSEGS A* 1 ABS (NSEGS ) 

DO  199  I-l.NSEGSA 

J-NSEGSA-I+1 

N-NRSEGl+J-l 

IF (NSEGS. LT. 9 )  N*NRSEC1-J*1 
MSTAB-A(N.31) 

DM»A(N,4S) 

TSEGL-A(N,45) 

C  CHECK  LAST  SEOMENT  IN  THE  REACH  AND  SET  LOCK  POSITION 
IF(I.EQ.l)  NPLOCK"A(N,2 ) 

C  CHECK  THE  POSITION  OF  AIR  LOCK  FOR  THIS  SEGMENT  UITH  THE  POSITION 
C  FOR  THE  NEXT  SEGMENT  IN  COMPRESSED  AIR 
IF(  ABS ( A ( N ,36 ) ) . EQ . NPLOCK )  GO  TO  54 
C  CHECK  IF  THE  SEGMENT  IN  COMPRESSED  AIR 
IF(MSTAB.NE.l )  GO  TO  144 
19  NPLOCK-  AB6( A(N,36 ) > 

DL0CK-AI8 ( CUMSL (NPLOCK  >-CUMSl ( NPBS ) ) 

C  FIND  THE  SURFACE  NODAL  POINT  OF  AIR  LOCK 


079-»S9 
979769 
070779 
970789 
979790 
070800 
079810 
079829 
079839 
074849 
9708S0 
970869 
974870 
079880 
079890 
070900 
070S! 0 
070920 
070930 
070940 
070950 
070960 
070970 
070980 
070990 
071000 
07190S 
071010 
071020 
071030 
971050 
071060 
071070 
971080 
071090 
071100 
071110 
071120 
071130 
071140 
071150 
071160 
071170 
071180 
071190 
071890 
071210 
071820 
071830 
071840 
071850 
071860 
071870 
071280 
0718M 
471300 
071310 
071384 


0900 

0909 

0000 

0900 

0000 

0900 

0000 

0900 

0900 

0900 

0000 

0000 

0000 

0090 


9000 

0000 


0000 

0000 

0000 


0000 

0000 

0000 

0000 


0000 

0000 

0000 

9000 

9000 

9000 

0000 

9090 

0000 

9000 

9090 

0090 

0909 

9090 


0409 

M90 

0099 

0099 

0009 

0009 

0009 

9000 


0009 

9000 


(Cont  inuiid ) 
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COS  I  UN  l  ist  ini',  (limit  inm-d) 


DO  M  K»1.J 

IFCNfEOI.LT.01  00  TO  ft 
NN"NRSE01*IC-l 
NPREND"A(NN.2 3 
NP8"A(NN,17) 

00  TO  70 
80  NN-NRSEG1-K+1 
NPREND"A(NN,33 
NPS"A<NN,18> 

70  IFCNPLOCK.EQ.NPREND )  00  TO  96 
N  CONTINUE 

—  CALCULATE  COST  0F  COMPRESSED  AIR  PIPING 
90  DTHLOlC"  CNP  C  NPS ,  2  3- CNP  ( NPLOCK ,  2  3 
PUNPLT "011*5280. -DLOCK+DTHLOK 
CAUT"ACN,363 

CO^TO*!®®  * ( 26 '  ‘  M1®*CPUT-0  •  8888886 1 5tCAUT**2  )*PUMPLT/DTCA 

50  IF  (MSTAB.NE.13  DTFACN-DTFACN+TSECL 

.«  cOTTiJue'”'1'*™'1'60'11  “  T0  “ 

giS^eTSf  .  ?S«,5SB¥I»I^E¥C;HE  f"EE «"  SES"E"TS 

return 

END 

LOCtC^IN^REACH  NUr,BER  °F  ***  L0C*  LOCATIONS  AND  LENGTH  OF  AIR 

ALOCK-1.* 

ALOCKL"30. 

n-8 

NSEGSA* IABSC  NSEOS 1 

jrli!’^;;^srKSE'5;r'l;'K«" 

)*ns€cs/nseos. 

M5TAB"A( 1,31 ) 

IF(NSTAB.NE.l)  GO  TO  180 
M*N+1 

FIRST  COMPRESSED  AIR  SEGMENT 
IFCM.NE.l)  CO  TO  18 
NPLOCK" A ( 1,36 ) 

IF<NPLOCK.1t.0)  M— 1008808 
18  IFCNPLOCK.NE.AC 1,36 3  1  AL0CK"AL0CK+1 . 

length  of  air  lock  . 

I F ( MTM . NE . 3  3  00  TO  100 

AR-A<I,81 

DM-ACI.46) 

CARS* (1 .40.7/(DN*2 . 1 3 BRMLMAX1 (0.06+8. 12SDNM8. 333 

EN0INE"CAR$/11. 

IF (ENGINE. LT.l. 3  ENGINE* 1. 

AL0KLT"17.*(CARS/ENCIN£*1. 3 

IF  C  ALQCKL . LT . ALOKLT 3  ALOCK  L "ALOKLT 


871338 

071340 

071360 

071360 

071370 

671380 

671390 

071400 

071410 

871420 

071430 

071440 

071450 

071460 

071470 

071480 

071490 

871S00 

071510 

071520 

071530 

071540 

071550 

071560 

071570 

071580 

071590 

071600 

071610 

071620 

071630 

071640 

071650 

871660 

071670 

071680 

071690 

071700 

071710 

071720 

071730 

071740 

071758  i 

071760  i 

071770  i 

071788  ( 

071798  i 

071800  I 

071810  I 

071820  I 

071830  ( 

071840  ( 

071850  I 

071860  < 

871870  < 

071886  I 

071890  « 

071900  ( 


(Continued) 
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520  UCL ■ <  50 . +0 . 01 *  <  BE+4 .  )**2>*CFLCA 
UCE-lB.+B.l*»E+O.O00035*UTSHLD 
UCH-<2.O+O.0«*BC>*HOUBS/AR 
00  TO  800 

c  iitinmiiiitiiit»tmit*itiiiiiiummtitm»imm»t»iii 

0  CUT  AND  COUER 

MO  IF ( DROCK . 6£ .  DTRNCH )  00  TO  700 
0  OPEN  CUT  INUOLUINC  ROCK  EXCAUATION 
UROCK-l£*(DTRNCH-DROCK  5/27. 

UCLROK-71 .+8.S5XARXUR0CK/H0URS 
UCEROK- IS . ♦ ( 9 . 4+0 . 003SIDTRNCH 5SARSUR0CK/H0URS 
UCNROK •  ( 1 . 1+0 .  0006* ( DTRNCH+DROCK  )  > tUROCK 
IF ( UCLROK . IT . 84 . 75 5  UCLROK -84. 75 

IF ( ARXUROCK/HOURS . IT . 25 . 5  UCEROK-1S.+(0.4+0.8035*DTRNCH)*25. 
IF(DROCK.GT.0. )  00  TO  6S0 
C  ALL  ROCK  ,  NO  SOIL  EXCAUATION 

USOIL-0. 

DCENT-O. 

UCLSOL-0. 

UCESOL-0. 

UCNSOL-0. 

GO  TO  750 

SOME  ROCK.  SOME  SOIL  EXCAUATION 
SOIL  EXCAUATION 

650  USO I L • ( BE+DROCK*$ I DESL  5  *  DROCK / 27 . 

DCENT-DROCK*( 1 .5*BE+DR0CK*SID£SL )/( BE+DROCKXSIDESL 5/3. 
IFlSIDESL.LT.l. 5  GO  TO  670 
I F ( ARXUSO I L/HOURS . LE . 500 . 5  GO  TO  670 
C  SOIL  EXCAUATED  BV  SCRAPERS 

660  SCRAPR-AR*USOIL/HOURS/ (290.-0. 9XDCENT ) 

IFCSCRAPR.LT.l. )  SCRAPR-1. 

PUSHER-SCRAPR/4. 

IF (PUSHER.LT. 1 . 5  PUSHER-1. 

UCLSOL-17 . +8 . 0*  C SCRAPR+PUSHER 5 
UCESOL-19.XSCRAPR+10.IPUSHER 
UCPSOL-  (S. 5XSCRAPR+3 . 0XPU5HER  )*HOURS/AR 
GO  TO  750 

C  SOIL  EXCAUATED  BV  DRAGLINE 

670  BUCNIN- 10.-0. 7XSQRT (160. -DROCK ) 

680  BUCKET-2. 5*<AR*USOIL/HOUR$/(1.05-0.00014*(PHI-50.  >**21-40.  ) 

1  /( 170.-DCENT  5 

IF <  BUCKET . LT . BUCK IN )  BUCKET - BUCNIN 
UCLSOL-19.0 

UCESOL -13.0+0. 85XBUCKETM2 

UCNSOL-1 . 1XBUCKETXUS0IL/ ( 40 . +0 . 4» ( 1 70 . -DCENT 5XBUCKET  5 
1  /<1.0S-0.00014*(PHI-50. 5**2) 

GO  TO  750 


SOIL  EXCAUATION  ONLY.  NO  ROCK  EXCAUATION 
700  UROCK-0. 

UCLROK-0. 

UCEROK-0. 

UCNROK -0. 

USOIL- CBE+DTRNCHXSIDESL  5XDTRNCH/27 . 

DCENT-DTRNCH<(1.6*BE+DTRNCH*SIDESL>/(BE+DTRNCHXSIDESL)/3. 

IFlSIDESL.LT.l)  GO  TO  720 

IF ( ARXUSOIL/HOURS . GT .500 . )  GO  TO  660 


073650 

073660 

073670 

073680 

073690 

073->00 

07371® 

0?3‘,20 

073730 

073740 

073750 

0?3'»60 

073770 

0737B0 

073790 

073800 

073810 

073820 

073830 

073840 

073850 

073860 

073870 

073880 

073890 

073900 

073910 

073920 

073930 

073940 

073950 

073960 

073970 

073980 

073990 

074000 

074010 

074020 

074030 

074040 

074050 

074060 

074070 

074089 

074090 

074100 

074110 

074120 

074130 

074140 

074150 

074160 

074170 

074180 

074190 

074200 

074210 

074220 


0000 

e000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 


0000 

0000 

0800 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 
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7M  BUCHIN- 10 .  -0 . 7XS0RT ( 161 .  - DTRNCH  ) 
00  TO  t«« 


766 


C06TS  Of  BACKFILL 
U-URCCK+VSOIL 
UCLIM'K.I 
JCEIMCOM 

If ( ARX ( V-UBOX ) /HOURS . IE . 1200 . )  Q0  TO  766 
UCLBAK-82 .  *  <  U-UBOX )  XAR/HOURS/ 1 866 . 

UCEBAK-32 • X ( U- VBOX )X AR/HOU0S/ 1266 . 

766  UCHBAK-0.01*( V-VBOX ) 

UCL-UCLROK+UCLSOL+UCLBAK 
UCE-UCEROK+UCESOL+UCEBAK 
UCH-UCNROK+UCHSOL+UCHBAK 
GO  TO  B66 

itmimtiimmtmmmtimutmmmnitmtmmmmi 
CALCULATE  UNIT  COSTS  Of  SHAFT  EXCAVATION 
If (NSTVP.E0.3)  00  TO  566 
CO  TO  ( 146,246,346,4*6 J.NEX 
ROCK  SHAFT 
CONVENTIONAL 
146  UCL-30 . +4 . 251  BE 
UCE-8.+2.2XBE 

UCH«(6.61^RS/2666666.  )*BE»2  ♦  (  . 8+RS/40000 .  +3 . 4/AR  )XBE  +  S. 

GO  TO  866 
HOLED 

246  UCL-0.032XBEXX2+84. 

UCE-0 . 072XBEX12 

UCN*  ( 5666 . +RS+ 1 26666 . /AR  ) XBEXX2/ 1 56666 . 

GO  TO  866 


166 


SOFT  GROUND  SHAFT 
HOLED 

346  UCL-<0.032XBEXX2+84.0)XCFLCA 
UCE-6 . 072XBEXS2+0 . 00003SXUTSHLD 

UCN- C  0 . 646+6 . 03XHOURS 3XBEXX2+ (6.5+6. 65tBE ) XHOURS/AR 

GO  TO  806 

HAND/SHIELD 

446  !F< ISHAPE.EG. 1 )  UCL-63.0XCFLCA 
IF( ISHAPE .EQ. 2 )  UCL-70.0XCFLCA 
UCE -7 . 46+6 . 060635IUTSHID 
UCH*(3.7e+e.65XBE)*H0URS/AR 
866  CLE -UCLX ( HOURSXCFLUUK+YXDN )/AR 
CEE-UCEXHOURSXCFEUUK/AR 
CHE -UCH 
GO  TO  900 


666  CLE-0. 
CEE-0. 
CHE-0. 


966  RETURN 
END 

SUBROUTINE  CHUKLD ( CLHL. CEHL .CHHL . ITYPE . HEX , AR. DH, V , V, RNY, RHLHAX, 
1  NSTAB . CFLCA, CFLUUK. CFEUUK, HOURS ) 


CHUKLD  CALCULATES  THE  COST  OF  NUCK  LOADING  IN  TUNNELS  AND  SHAFTS 


674236 

074246 

074260 

074260 

074270 

674280 

674290 

674306 

674310 

074326 

074330 

074340 

674356 

074366 

674370 

07+380 

674390 

074400 

074410 

074426 

074430 

074440 

074450 

074460 

074470 

074480 

074490 

074560 

074510 

074520 

074530 

074640 

074550 

074560 

074570 

674580 

074590 

074606 

074610 

074620 

674636 

074640 

074650 

674666 

074676 

074686 

674696 

074760 

074710 

074720 

074730 

074740 

074750 

074766 

074770 

074780 

674790 

674800 


600e 

0000 

6066 

0006 

6000 

0006 

0060 

0000 

0000 


0060 

0000 

6060 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0600 

0000 

0060 


0000 

0000 

0000 

0660 

6000 

6060 

0000 

0000 

0000 

0000 

0000 

0000 

0006 


0600 


0600 

0000 

0000 

0000 

6000 

0000 

6600 

0000 

0000 

0060 

0060 

0600 
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UCL-?.7*TRUCKS*7.1 

UC£-C1.6*3.1*Z>*TRUC<S 

U€fl-0 . 06* ( 1 . +0 . 77* A8S ( HSLOPE ) )*DM 

00  TO  400 

RAIL  TRANSPORT  -  FREE  AIR 
CALCULATION  OF  NUMBER  OF  CARS 
40  CONTINUE 

cars*  t  • .  96*9 .  mourn .  333  jjrnliiax 

1  ♦  AR/300.*  C  9.06*0. 023*DM-0. 12*0 H**0. 333 XRflLMAX 

IFCNSTAi.EG.l)  00  TO  1666 
44  IF(CARS.LT.l. )  CARS-I. 

CALCULATION  OF  NUMBER  OF~£NGINES 
ENGINE-CARS/11. 

65  IFCENCINE.LT. 1. )  ENGINE-1 . 

UCL-1S.*ENCINE*?.14*(D»1*1.  >+AR/12. 

UCE-S.  8<ENGIN£+CARS*1 .4*DI1 
UCN-6. 63*011 

GO  TO  469 

RAIL  TRANSPORT  -  COMPRESSED  AIR 

1696  OCR-6. 1*DM*S280. 

DCA-DM-DLOCK/5280. 

IFCDCR.CT.S66. )  DCR-S60. 

CARS- ( 1 .*0.7/CDM*2. ) )*CARS 
IFCCARS.LT . 1 . )  CARS-1 . 

ENGINE-CARS/11 . 

IFCENGINE.LT. 1. )  ENGINE-1 . 

I  CALCULATE  NUMBER  OF  CREUS  INSIDE  AND  OUTSIDE  THE  AIR  LOCK 
CREUAD- 1 . -ENGINE**4/4666 . 

IFcCREUAD.LT. 6. )  CREUAD-6. 

CREUS -ENG I NE+CREUAD 

CREUCA- 1 .  +  C  CREUS-2 . )  *  C  DMX5280 .  -DLOCK-6 .  S*DCR )  /  C  DM5280 .  -1 .  S*DCR ) 
IFCDLOCK.LT .OCR )  CREUCA-CREUS-1 . 

IF C  DMX5289 . -DLOCK .  LT . 0 . S*DCR )  CREUCA •  1 . 

UCL- 1 . 5*  C CREUS*  C  CFLCA-1 . XCREUCA ) ♦ ARtCFLCA/ 1 2 . 

1  *7 .14*(DM+l . )*(DLOCK/5280.*DCft*CFLCA)/DM 

UCE-9.3*ENCINE+CARS*1 .4*DM 
UCN-0.033*DM 
CO  TO  406 

I  conuevor  transport”-”free"air  " 

66  UCL- C 0 . 013* AR*0 .6*DN )*SORT C RMLMAX*40 .  )*6. 66SAR-1 . ISDN 
IFCHSLOPE.GE.0.0)  UCECON-C  C 1  .*4.*  HSLOPE  )*SQRTCRMLMAX*40.  )-26.« 

1  HSLOPE-1 .5  >*DM 

IFCHSLOPE.LT. 0.6)  UCECON-C SORTCRNLNAN+40. )*6.«  HSLOPE-1 .5 )*DN 
IF C HSLOPE .GE.6.9)  UCHCON- C  0 . 0 1 *0 . 23SHSL0PE  ) *DN 
IFCHSLOPE.LT. 0.0)  UCWCON-0. 01*0(1 
UCENT-0. 

UCNNT-0. 

IFCNSTA8.NE.1)  GO  To'IIis 
:  CONUEVOR  TRANSPORT  -  COMPRESSED  AIR 

DCA- DM-DLOCK /S2S0 . 

„  •  +DCAXCFLCA )  /DR*7 . 7XCFLCA*  16.8 

-  COST  OF  PUCK  TRANSFER  IN  AIR  LOCK 


07S39e 

07S400 

975410 

8 '’5420 

e’SAse 

0-»S440 

07S4S0 

0TS466 

075470 

075480 

975490 

075566 

975510 

975526 

075530 

075540 

075550 

075560 

075570 

075580 

075590 

075600 

075610 

075620 

675630 

075640 

075650 

075660 

075670 

075680 

075690 

075700 

675710 

975726 

075730 

075740 

075750 

075760 

075770 

075780 

075790 

075800 

075810 

075820 

075830 

075840 

075850 

075860 

075870 

675886 

676896 

075966 

075910 

075920 

675930 

075940 

675960 

076960 


(Cent inued ) 
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CUSTI  X  I,  i  si  i  n;.'.  ( ('i'll  1  i  mu'i!  ) 


ucciit-».i» 

IF < RMLMAX. LE.l 00. )  UC£MT*4.S0 
IF ( RMLMAX. GT.300)  UCEMT-14.90 
UCMKT-0.02 

UN  JCE  ■UCECON+UCERT 
uch*ucmcon4ucmmt 

C  STORE  COST  WALUES  FOR  USE  IN  LINING  COMPUTATIONS  CSU»  LINING) 
UCLT* ( 0 . 6FS0RT ( RMLMAX440 , )-l.l)*DM 
UCET-UCE 

00  TO  4|(  _ _ 

CONUEVOR  AND*TRUCK  (FOR  COMPRESSED  AIR  SEGMENT  ONLV) 

80  IFCMSTAS.NE.l )  GO  TO  SO 
IFCDLOCK.LE. 0.001)  GO  TO  SO 
0CA*DM-DL0CK/S2S0. 

TRUCKS  IN  FREE  AIR  „  „ 

IF(ISHAPE.LE.2)  2*5.0  -  0.001*C70.  -  BE>**2 
IF(ISHAPE.EG.3)  2*4.5  -  0.5*(BE-50. >**4/22000. 

TRUCKS-0 . 06XRMLMAX/2* ( DLOCK/5280 .1**0.? 

IF ( TRUCKS . LT . 1 .  )  TRUCKS* 1 . 

UCETR* ( 1 . 5*3 . 1*2  >*TRUCKS 

UCMTR-0 .05* ( 1 . *0 . ?7*A8S l HSF A  >  )*DLOCK/52B0 . 

CONUEVOR  IN  COMPRESSED  AIR 

UCECON*DCAt( ( 1 ,+4.*HSCA  >*S0RT(RMLMAX446. >-26.*HSCA  -l.S> 

UCMCON*DCA*(0.01 +0 . 23SHSCA ) 

IFCHSCA  . GE.0. )  GO  TO  1200 
UC£CON*DCA*(SQRT<RMLMAX440.  )+6.*HSCA  -1.5) 

UCMCON*0.01*DCA 

COST  OF  MUCK  TRANSFER  IN  AIR  LOCK 
1200  UCEMT-8.10 

IF ( RMLMAX . LE . 100 • )  UCEMT*4.S0 
IF ( RMLMAX . GT . 300 . )  UCEMT-14.9 
UCMMT-0.02 

UCL*  ( < 0 . 013FAR40 . CXDCA  JXSORT < RMLMAX440 .  )40.06*AR-1 . 1*DCA >*CFLCA 
1  *7 . 7* ( TRUCKS+CFLCA ) +23 .  9+CLIND*AR/H0URS 

UCE*UCECON+UCEHT-f  UCETR 
UC(1*UCMC0N+UCMMT+UCMTR 

CALCULATE  MUCk’traNSPORt'cOSTs’” 


400  CLMT-UCLIHOURSXCFLUUK/AR 
CEMT*UCE*HOUfiS/AR*CFEUUK 
CMMT-UCM*U 

IF(HH.GT.0 . )  GO  TO  500 

C  SHAFT  IS  A  PORTAL,  HOISTING  COSTS  ARE  2ER0 
300  UCL*0. 

UCE*0. 

UCM*0. 

UCLIND-0. 

GO  TO  700 

C  COST  OF  BACKFILL  TRANSPORT  IN  CUT  AND  COWER 
3000  DCENT*(DCENT*WS0IL-UB0X*<DTRNCH-T0TB0X/2. >>/(W-W80X> 

IF ( DROCK . LT . DTRNCH )  DCENT*DCENTfWROCK*< DTRNCH+DROCK >/2. /( W-WlOX > 
TRUCKS* (6.024 < OPEN4DCENT/0. 1 )/ 75000 .  )*W8ACEX*(W-WBOX5*AR/HOURS 
IF(TRUCKS.LT . 1 . )  TRUCKS-1 

UCL*  < 10 . 4(15 . 5+4 . 7*DDS >*WIACDS*( W-V80X )*AR/IOO0 . )*24 . /HOURS 
1  40 . 2046 . 25FTRUCKS 


075970 

075980 

075990 

070000 

076010 

070020 

070030 

076040 

076060 

076060 

076070 

076080 

076090 

076100 

076110 

076120 

076130 

076140 

076150 

076160 

076170 

076180 

076190 

076200 

076210 

076220 

076230 

076240 

076250 

076260 

076270 

076280 

076290 

076306 

076316 

076320 

076330 

076340 

076350 

076360 

076370 

076380 

076390 

076400 

076410 

076420 

076430 

076440 

076450 

076460 

076470 

076480 

076490 

076500 

076510 

076520 

076530 

076540 


(Cent inued) 


ooooo 


UCE-<6.Mia.S*a.UDDS>*UBACDS*<U-UBOX>*AR/'iee0. 

1  ♦8.«0+a.70*TRUCKS 

UCtl-0 . 0S6XDDSXUBACDS+0 . 09995S t  OPEN+DCENT/0 . 1 )*UBACEX 

i  +8 . atHOuRS/AR/ ( u-ubox  > 

C  CALCULATE  COST  OF  BACKFILL  TRANSPORT  PER  FOOT  OF  TUNNEL 
CLRT-UCLtHOURS.'ARXCFLUUK 
CERT-UCEIHOURS/ARXCFEUUK 
CURT •  UCRI C  U-UBOX  ) 

C  RESET  UNIT  COSTS  TO  2ER0  $0  RUCK  HOISTINC  COST  UILL  BE 
C  CUT-AND-COUER 
GO  TO  300 

c  mitimmimitmimtuittmmmmttiiiiiimi 

C  CALCULATE  UNIT  COST  OF  RUCK  MOISTING  IN  TUNNELS 
sat  UCL-35 . +9 . 003XHH* ( 1 . *0 . 002XRRLNAX )♦« . t 16XRRLRAX 
UCE-10.  +  0.03XRALRAX 

ucn-e. ts 

UCLINO- < 5099® . +0 . 04* ( 9t» . +HH ) (RflLRAX  )/RL 
GO  TO  700 

C  - - - - - - - 

C  CALCULATE  UNIT  COST  OF  NUCK  HOISTING  IN  SHAFTS 

600  UCL-e. 
ucE-e. 
ucn-e. 

UCLIND-0. 

IF(NSTVP.EQ.3  )  GO  TO  800 

UCL-2S.  ♦  0.0eaSHHtU.«0.008*8RLnAX) 

UCE*3 . +0 . 04JRNLNAX 

ucn-e. 05 
UCLIND-0. 


CALCULATE  RUCK  HOISTING  COSTS 
700  CLRH • ( HOURSBUC L/ AR*UCL I ND )  *CF  LUUK 
CERH-HOURSBUCE/ARXCFEUUK 
cnnH-ucnxuxHH/1000. 

GO  TO  750 
800  CLRH-0. 

CERH-0. 

cnnn-t 

760  CONTINUE 


STORE  COST  UALUES  FOR  USE  IN  LININC  CORPUTATION 

UCLRH-UCL 

UCEPIH-UCE 


RETURN 

END 

SUBROUTINE  CRUKDP ( CLRO. CERD , CRRD.AR, U, CDS , DDS.UDS. NSTVP 
1  CFLUUK.CFEUUK.ITVPE) 


CtlUICDP  CALCULATES  THE  COST  OF  RUCK  DISPOSAL  FOR  TUNNELS 


IF ( ITVPE . EQ . 2 . AND . NSTVP . EG . 3 )  GO  TO  100 


CALCULATE  UNIT  COST  OF  RUCK  DISPOSAL 
VNKDP-U 


COSTl'N  l  ist  in)-',  (runt  1  mu-il  ) 


RfTHNT-6.638-6. 18E-SIPNINT 

m  to  u«i 
*haft  segment 

ii?s  frti|HAfe.Io.i>  go  to  us® 

A*T»67634-8.13E-6*PT0TAL 

PMINT-S6666./8FM1.9 

Rf TWNT  .  634-6 .  1 3E-6*PflINT 

UN  IP<PT0TAl.LT.PMINT3  R$T«6.614(R$TMNT-*.81  3^PMINT*PT0TAL 
IFCRST.LT.8.81 )  RST-6.®1 
1186  WREIN»491 .*RST*UL*27. 

YY-99 .  *UU« .  1  S*URE  I N 
GO  TO  1286 

SEGMENTED  STEEl'sUPPORTS 

1 199  UST-491 . * ( AREA*® . 66?*  t S-2 . *TUEB J  * ( TSEG-TPLATE XTUEB 3  --StPERNTR 
VY-8.695XUST 

1266  IF<ITVPE.EQ.23  GO  TO  1216 
TUNNEL  SEGMENT 
V3*l 

GO  TO  1238 
SHAFT  SEGMENT 
IS  COMPRESSED  AIR  USED 
1216  IFCMSTAB.EO.ll  GO  TO  1226 
Y3-8.333 
GO  TO  1238 
1226  V3»l«25 

1236  UCl*V3*(S6.+6.64tBE**23S( (CFLCA-1 . X2./3.+1 . 3 
IF ( ITVPE . EG . 2  3  UCL-Y3*  <  56 . +8 . 64XBE**2 3 
UCE*Y3*C5.S+0.063*(BEM8. 3**2 > 

UCH-V3*  I2.lt.®.  66 1  *BE**2  3  XHOURS/ AR+ V  V 

ADD  COST  FOR  CAULKING  SEGMENTED  SUPPORTS  IN  WATERTIGHT  TUNNELS 
AND  SHAFTS 

IF(LXNUT.EQ.13  GO  TO  1246 
GO  TO  1356 

1246  IFCITYPE.EQ.33  GO  TO  1256 
TUNNEL  SEGMENT 
IF(ISHAPE.EQ.l)  GO  TO  1268 
HORSESHOE  OR  BASKETHANDLE 
SEGN-6 
GO  TO  127® 

1256  IF< ISHAPE.EQ. 1 3  GO  TO  1266 
SQUARE 
$EGN«8 
GO  TO  1276 


679386 

679398 

67946® 

67941® 

67942® 

67943® 

67944® 

679456 

679466 

679476 

679486 

879496 

679566 

679510 

679526 

679S36 

679546 

879558 

679566 

879578 

879586 

679596 

679666 

679616 

679626 

679636 

679646 

679656 

879666 

679676 

679686 

679696 

679766 

679716 

679726 

679736 

679746 

679756 

87976® 

679776 

679786 

679796 

67986® 

679816 

679826 


(Continued) 


oooo  o  ooo 


i.OSn.N  List  in;;  ((Lint  inm-d  j 


C  NO  STRUTS  IF  CONPLETELV  SUPPORTED  Bv  ANCHORS 
IFdBRACE.EO.2)  STRUT-0 
C  NO  UALES  FOR  SLURRV  UALL 
IFdSUPPT.E0.6J  UALE-0 

C  NO  COSTS  OF  UAIES  AND  STRUTS  FOR  SLURRv  UALl  SUPPORTED  Bv  ANCHORS 
IF ( ISUPPT.E0.6  .AND.  IBRACE.EQ.2)  00  TO  1570 
UCL*UCL+4$ .  +  1 . 3 tSORT  t  UALE+STRUT ) 

UCE'UCE* 16 . +0 . 4SISQRT  C  UALE+STRUT J 
UCH*UCN+0 . 09S*UALE+0 . 24ISTRUT 


ADD  COST  OF  SOLDIER  PILES 


1570  IF ( ISUPPT , EO . 6 )  CO  TO  1605 

IF ( CROCK . LT . DTRNCH )  CO  TO  1SBB 
SPLT*DTRNCH*10. 

CO  TO  1600 
1580  SPLT-DROCK+10. 

1600  IF ( IDECK .EQ.0 J  SPDIT.SPLT 
IF ( IDECK .EQ.O )  UTSPD*UTSP 
CO  TO  1610 

SOLDIER  PILES  ENBEDED  IN  SLURRV  UALL 
1605  SPLT*DSLURV 
SPDLT-DSLURV 
UTSP-13 
UTSPD-13 

1610  PIL£«(2.*SPLT*UTSP+SPDLT*UTSPD)*2.'lS. 

DUTAUG*SQRT ( 6 .  *  <  2 . *UTSP*SPLT+UTSPD*SPDLT  ) / ( 2 . tSPLT+SPDLT ) ) 
SPLTAU- ( 2 . *SPLT*SPDLT  J/3 . 

UCL-UCL+ ( 0 . 009*  <  DUTAUG+7 .  )**2-0 .2  5*0. 4*SPLTAU*AR/H0URS 
UCE*UC£+0 . 02*DUTAUC*SPLTAU*AR/HOURS 
UCN«UCn+0. 0l2*DUTAUC*SPLTAU+0. lfPILE 


ADD  COST  OF  LAGGING 


NO  LAGCING  FOR  SLURRV  UALL 
IF ( ISUPPT. EQ. 6  )  GO  TO  1710 
IF C CROCK. LT. DTRNCH  )  GO  TO  1660 
IF ( DTRNCH. GT. 25.  )  GO  TO  1640 
BL»DTRNCH*3.*2./1000. 

GO  TO  1700 

1640  BL • ( 25 . *3 . + ( DTRNCH-25 . )*4. )*2./1900. 
GO  TO  1700 

1660  IF < CROCK. GT. 25.  )  GO  TO  1680 


080850  9000 
080869  9008 
080870  0009 
080880  9000 
089880  0009 
080990  0000 
080910  9000 
080920  0000 
080939  9000 
080940  0000 
080950  0000 
080960  0000 
080970  0000 
080980  0000 
080990  0000 
081000  0000 
081010  0000 
081020  0000 
081030  0000 
081040  0000 
081050  0000 
081060  0000 
081070  0000 

08ie80  0000 

081090  0000 
081190  0000 
081110  0000 
081120  0000 
081130  0000 
081140  0000 
081150  0000 
081160  0000 
081170  0000 
081180  0000 
081190  0000 
081200  0000 
081210  0000 
081220  0000 
081230  0000 
081240  0000 
081250  000e 
081260  0000 
081270  0000 


(Continued) 
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oo  ou  oo  ooo  o  o  o  o  o  o  o  oooo 


41  IFU1N1NG.E0.2)  P«lNT*56000/BFt*l . 8 
4?  MTIWT-0. 014-8. SE-8*PNINT 
00  TO  48 
SHAFT  SEOHENT 
IS  IT  CIRCULAR  SHAPE 
48  IFdSHAPE.EO.i  )  GO  To  41 
RST-8 . 8 l S-fi . 25E-8FPUATER 
IF( LINING. E0.1)  PHINT*1?S000.'BFM1.9 
S«  IFCLINING.EG.2)  PNINT*3l000/BF**t.8 
SI  R8TNNT  *0 . 815-6 . 25E-8IPN1NT 

48  IF CPUATCR .LE.PHINT  )  RST.RStRIH*<RST«HT-RST«IN)*PUATER-'PTINT 
IFtRST.  LT.RSTHIN )  RST-PSTIN 


IS  IT  A  SOFT  GROUND  'UNNEL  OR  SHAFT 

4  IF(NSTVP.E0.2>  GO  TO  40 
ROCK  TUNNELS  OR  SHAFTS 
CHECK  ROD 

5  IF(ROD.L£.40.  )  GO  TO  40 
IF(RGD.CE .60 . )  GO  TO  20 

ROD  IS  BETUEEN  40  AND  60. INTERPOLATION  OF  COSTS  IS  NECESSARV. 

COST  UILL  BE  COflPUTED  FOR  ROD-40  AND  TmEN  FOR  ROD-60  BEFORE 
INTERPOLATING  TO  OBTAIN  COSTS  AT  ACTUAL  ROD. 

18  II-l 

STORE  THE  CORRECT  UALUES  OF  ROD  AND  BOB 
RGDD-RGO 

BBOB-BCB 

ESTABLISH  FICTITIOUS  UALUES  OF  ROD  AND  SI2E  FOR  INTERPOLATION  USE 

ROD- 48. 

808*80840 
GO  TO  SS 
ROD  .GE.  68 
28  11*4 
30  F*l. 

GO  TO  (208.308). LINING 
ROD  .L£.  46 
40  11*4. 

55  IF(LINING.E0.1 )  GO  TO  200 

IS  THIS  A  SOFT  GROUND  TUNNEL  OR  SHAFT 
IF(NSTYP.EG.2)  GO  TO  300 
S*0.0S(ROD>1.25 
TL  IS  STORED  IN  FEET 

59  IF (  TL.LT.uEB)  GO  TO  70 

F  IS  A  FACTOR  FOR  INCREASING  SHOTCRETE  UOLUNE  OuER  STEEL  SET $ 

60  F*1 . 

GO  TO  300 
70  F-CS+UEB/4.  )/$ 

00  TO  380 


COnCRcTfc  LINING 


200  UL-SFA/27 .*CJ0Bt*2-BF**2 ) 

ULREIN*SFA/27.«(|E«2.-BF**2.  ) 

IS 5  «L;4 . /27 .  *SFA*TL*<  BF+TL ) 
IF(NSTVP.E0.2 >  ULREIN*UL 
U«  IN*481 .  IRSTtULRE  IN*27. 

...  GO  TO (820. 280). IT YPE 
230  IF(NSTYR.EQ.3)  GO  TO  230 


082440  0080 

082450  8880 

882460  0000 
082470  0000 

082480  0000 

082490  0000 

082500  0000 

082518  0000 
082520  0000 
082530  0000 
082540  0000 

9B2550  0000 

0B2560  0800 

082570  0000 

082580  0000 

082590  0000 

082600  0000 

082610  0000 

082620  0000 
082630  0000 

082640  0000 

082650  0000 

082660  0000 

082670  0000 

082680  0000 

082690  0000 

082700  0000 

082710  0000 

082720  0000 

082730  0000 

082740  0000 

082750  0000 

082760  0000 

082770  0000 

082780  0000 

082790  0000 

082800  0000 

082810  0000 

082820  0000 

082830  0900 

082840  0000 

082850  0000 

082860  0000 

082870  0000 

082880  0000 

082890  0080 

082900  0800 

082910  0000 

082920  0000 

082930  0000 

082940  0000 

082950  0000 

082960  0000 

082970  0008 

982988  0008 

082990  0900 
883800  0800 
883810  0800 


(ConL i uuod ) 
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COS  ITN  list  i n k  (Continued) 


C  CORPUTE  FORRUORK  COST*  984109 

TN  8LFU-  ( H0URS*CFLUUK4VtDH  )*UCL/ AL  084196 

C&U-H^MSCftUMCSUCC/Al  |84|0e 

oo  to  lose  ««4aae 

c  nmmmttiimiim  cut  and  couer  ************************  084230 

C  “•  «WR',-t,-a>  00  T“ ,4*  sis;: 

IF ( LINING. EQ. 3 )  00  TO  93S  084260 

C  - 014270 

c  cip  box  e«42te 

UCL-480 . -0 . 075* ( 70 . -UL )**2  084290 

UCE-S6. -0.008*< 65. -UL)**2  084300 

ucn-as.*uL  084310 

HOURCR-UL  *AR/( 119. -0.03* (UL  -60. )**2 )  084320 

IF (HOURCR.LT. 8. )  HOURCR-8  084330 

CLL  •  UCLSHOURCR / AR*CF LUUK  084340 

CEL ■ UCE  *H0URCR  /  AR*CF  EUUK  084360 

cnl-ucm  084360 

HOURCR-FORNAR*AR/( 680.-0. 084* (F0RMAR-400.  )**2)  084370 

IF (MOURCR.LT. 8)  HOURCR-8  084380 

CLFU-  (100.4-0. 85<F0RNAR )  *HOURCR/AR*CFLUUIC  084390 

CEFU- ( 8 . 4 ( FORFIAR+IOO .  >**2/4500.  )*HOURCR/AR*CFEWJIC  084400 

CP1FU-9 .354F0RP1AR  084410 

RETURN  084420 

q  084436 

C  PRECAST  CONCRETE  BOX  084440 

930  UCL-(0.07*(UL  410.  )**2-7. >*SO./UL  084460 

UCE>(0.007*(UL  480. >**2-45. > *50. /UL  084460 

UCH-104.*UL  084470 

H0URCR-UL*AR/50.  084480 

IF (MOURCR.LT. 8. >  HOURCR-8  084490 

CLL-UCL*HOURCR/AR*CFLUUK  084500 

CEL • UCE8H0URCR/ AR8CFEUUK  084510 

CHL-UCn  084520 

00  TO  2  084530 

C  -  084540 

C  SHAFT  084550 

840  IF(1SHAPE.EQ.2)  GO  TO  94$  084560 

SFP-3.14  084570 

GO  TO  950  084580 

946  SFP-4  084590 

950  0L"(BFVrL»TL*SFP/27.  084600 

UCL-  0.07XUL  +10.  >**2-7.  084610 

UCE-  O.007X(UL  480. >**2-45.  084620 

UCN-104.*UL  084630 

CLL-UCLXCFLUUK  084640 

CEL-UCE*CFEUUK  084650 

CHL-UCI1  084660 

_  00  TO  2  084670 

1000  RETURN  084680 

END  084690 

SUBROUTINE  CCROUT(CLO.CEG.CNG, ITYPE.OI. ISHAPE.BE, AR.RS.NSTVP,  084700 

imTAB.  DTUN, HH, HOURS, CFLUUK, CFEUUK, 5SEGL, Pt RN, SFP, DTG. TINEG )  084710 

- II - Hill-11 — IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII  014730 

-  084740 

COROUT  CALCULATES  THE  COST  OF  OROUTJNQ  IN  A  TUNNEL  OR  SHAFT  084750 


0000 

0009 

0009 

0009 

0009 

0090 

0009 

0090 

0009 

0009 

0000 

0000 

oeoe 

oooo 

0090 

oooo 


oooo 

9000 


9000 

0000 

oooo 

9000 

oeoe 

oooo 

oooo 


oeoe 


oeoe 

oooo 

oeoe 

oeoe 

oooo 


oeoe 

oeoe 

oooo 

oeoe 

oeoe 

oooo 

oeoe 

oooo 

oooo 

oooo 

oooo 

oeoe 


oeoe 

oooo 

oooo 
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COSTUN  Listing  ( Continued) 


UCC0.4IK  08534* 

UCH-O.14*BE40.8*CO.5S40.15*ALOG10(SORT<10.*ABS<PERM)>))/  085350 

1(1. 5540.  15*ALOC10< SORT C 10. *ABS( PERM)) )  >*BE>$FP  085360 

00  TO  1000  085370 

085380 

SHAFT  085390 

STABILIZED  0V  GROUND  INJECTIONS  085400 

640  IFIHSTAB.E0.3)  00  TO  700  085410 

660  CIG-0.  085420 

CEG-0.  085430 

CMG-0.  085440 

RETURN  085450 

IS  SEGMENT  MIDPOINT  DEEPER  THAN  200  FT  085460 

700  IFtHH.GT .200. )  GO  TO  600  085470 

GROUTING  FROM  GROUND  SURFACE  085480 

UCL*79. XTIHEG* (BE+S .  )*SFP/5 . /DTGtAR/'HOliRS  085490 

UCE* 15 . ITIHEG* 1  BE 45 . JXSFP/5 . /DTG*AR/HOURS  085500 

UCM>0.6«TIMEGt(IE45.  )ISFP/DTG40.64*(0.5S40.1S*ALOG10(S3RT(1O.*A8S  085510 
1 1  PERM ) n )*  C  BE45 . ) *SFP/ (1.5540. 15  * AlOG 1 0 ( SORT ( 10 . «ABS i PERM ) ) ) 5  085520 

- 085530 

COST  OF  GROUTING  085540 

1000  CLG-UCL*HOURS*CFLUUK/AR  085550 

CEG>UC£*HOURSSCFEUUK/AR  085560 

CHG-UCM  085570 

RETURN  685580 

END  085590 

SUBROUTINE  CPUMPCCLP.CEP.CMP.NSTVP.FLOILPH.PIPL.AR.  085600 

1 ITVPE, ELSURF , ELBOTM, DAVS. I IN I NG . PUMPTM , HEX , DTRNCH , DROCK , FLOUL ,  085610 

2UELLS.RL. TIME DU, ISUPPT , EUJATR , ELNPB. IUATER , CFLUUK , CFEUUK )  085620 

-  085630 

-  085640 

CPUI1P  CALCULATES  THE  PUMPING  COSTS  085650 

PUMPING  TIME  COMPUTED  IN  COSTSF  IS  FOR  SOFT  GROUND  SHAFT  ONLV  085660 

ASSUME  PUMPING  24  HR  A  DAV  ,  7  DA VS  A  WEEK  OPERATION  085670 

-  085680 

-  085690 

085700 

IF<NSTYP.EG.3)  GO  TO  300  085710 

ROCK  OR  SOFT  GROUND  085720 

IF<NSTVP.EQ.2>  GO  TO  100  085730 

-  085740 

ROCK  085750 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 

0000 


0000 


0000 

0000 

0000 


0000 

0000 


0000 

0000 


0000 

0000 

0000 

0000 


(L.uU  i  mud  ) 


COSTUN  Listing  (Continued) 


pgp|H|  rinc  determined  in  coitsf 

NO  UCUS  IF  FLC4I«0 
IF(FVO^t*t>T.«.M«n  UELLS-0 

FT  LENGTH  OF  SHAFT 


&m-\' 

UELLLN*! 


00  TO  4S0 


CUT-AND-COWER 

3M  IFC ITYPE.EQ.2 )  00  TO  9S0 
TUNNEL 

IF ( ELUATR . IT . ELSURF-DTRNCH  )  00  TO  950 
IFUUATER.EO.O)  00  TO  909 
IS  IT  SOLDIER  PILE  UITH  LAGGING 
IF(ISUPPT.EO.S)  GO  TO  356 

IF ( CROCK . LT . DTRNCH  .AND.  ELUATR . LT . ELSURF-DROCK >  CO  TO  9S6 
00  TO  466 

IS  ROCK  LINE  AtOUE  TRENCH  BOTTOM 
356  IF (DROCK.LT. DTRNCH)  GO  TO  960 
466  PUNPTFI  •  ( 1 . / AR*  <  T I HEDU* 1 0 .  )/RL  >*?./DAYS 

IF C LIN ING . EG .  1 )  PUUPTN- <1./AR*CTI NEDtJ*40 .  )/RL ) I? . /B AVS 
UELLLN-DTRNCH 

IF ( UELLLN. GT . DROCK )  UELLLN-DROCK 
456  PIPED-6.5*FL0UL«0.4 
IFCPIPED.LT, l. J  PIPED-1 
SETUP  COST  OF  DEEP  UELLS 

UCL • ( 6 . 4SPIPED+3. 2 ) *UELLLN*UELLS*AR/24 . IDAY$/7. *CFLUUK'l . 12 
UC£><0.lS*PIPED+l.)*UELLLN*UELLS«AR/24.<DAVS/?.SCFEUUK/e.?lS 
UCN»  <  6 . 756PIPED+3 . >*UELLLN*UELLS*AR/24.*DAVS/7. 

OPERATING  COST  OF  DEEP  UELLS 
UCL*UCl+6. SSIUELLStPunPTnSARtOAVS/?. 

UCE-UCE+6 . 666265tF  LOULtPHt ( 6 . 0626*7 . / ( 2666 . *6 . 066265*FL0UL*PH ) >* 
lUELLS*PUNPTnsAR*DAVS/7 . 

UCH-UCM+5 . SPHtFLOUL/ 1666666 . *UELLS<PUNPTfWAR*DAYS/7 . 

SETUP 

IS  IT  CUT-AND-COUER 
IFCNSTYP.E0.3)  GO  TO  1666 
SOFT  GROUND 

IFCITVPE.EQ.2)  GO  TO  1060 


PUMPING  FROM  TUNNEL 


066166 

666196 

666166 

686216 

666216 

666136 

666246 

666256 

666266 

686276 

686286 

686296 

686396 

686316 

686326 

686336 

686346 

686356 

686366 

686376 

686386 

686396 

686466 

086416 

686426 

686430 

086440 

686450 

086466 

686476 

686486 

086490 

686506 

686516 

086526 

686536 

086546 

986550 

086569 

086570 

686580 

086590 


6666 

6666 

0606 

6666 

6666 

0666 

6606 

6666 


6660 

0006 

0666 

0666 

0696 

0066 

0600 

0006 

0006 

6006 

0060 

6000 

0006 

0066 

0060 

0606 

0666 

0600 

0000 

0006 

6006 

6000 

0000 

6000 

0060 

0006 

6006 

0006 

0006 

0600 

6660 

0000 


(Continued) 


COSTUN  Listing  (Concluded) 


gKKSf.WSTtt0-11’ 

DATA  A/4MEND  »4H0F  S,4HYSTE.4Hf1 
URITKLO.l)  A 
6  RCAIKIX.S)  I 
00  10  X-1.4 

IF<A(I).f>C.*<X))  60  TO  6 
10  CONTINUE 
RETURN 

1  F0R«AT(1H1.4A4> 

8  F0RNATC4A45 
END 

.  f  yS52uIISI.52c5ic  VIsi2lTstcr,TS  •  wo.  hex.  xshape  .ie.ar.rs.  ieao,  use. 

IJSJJ^UA^U^.CPLUUr.CFEUUK.SFA.t.XNINd.ON.CLL.CEt.enC. 

1010  6FP-5.U 
YY-8.0 
5-4.0 
V3-1.0 

UCL-Y3*<50.+.04*lE*tS) 

UCE-V3*(5.5+.e03*t»E+10. )*«) 

.  „UCn- Y3* 1 2 •  MUIEU3  J8H0URS/AR+YV 

IBM  SE6N-3. 

1870  CJOINT-IEXSFP/S+SEGN 

UCL-UCL+. 17SXCJOXNTtAR/HOURS 
UCE-UCE* .OBSXCJOINTlAR/HOURS 
UCPI-UCN+.30C  JOINT 
VIACKG-SFA8  <  IESSB- ( IE- . 333 )**B ) 

UCL-UCL+1 .3XUIACIC6XAR/N0URS 
UCE-UCE+.5«U»ACKG*AR/H0URS 
ucn-ucn- 1 . bxuiackg 

CUTS- ( H°URS*CFLUUK4V»Dri  )IUCL/AR 

CETS-HOURS*CFEUUK*UCE/AR 

CNTS-UCN 

CLL-0.0 

CEL-O. 0 

cni-o.o 

CLFU-0.0 

CEFU-0.0 

CdFU-0.0 

RETURN 

END 


0IT7S0 

017760 

017770 

087710 

087790 

017100 

087810 

087880 

017830 

087840 

687850 

087860 


0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 


0000 


(Concluded) 


A178 


In  accordance  with  letter  from  DAEN-RDC,  DAEN-AS1  dated 
22  July  19 77,  Subject:  Facsimile  Catalog  Cards  for 
Laboratory  Technical  Publications,  a  facsimile  catalog 
card  in  Library  of  Congress  MARC  format  is  reproduced 
below. 


Bennett,  Robert  D. 

Tunnel  cost-estimating  methods  /  by  Robert  D. 

Bennett  (Geotechnical  Laboratory,  U.S.  Army  Engineer 
Waterways  Experiment  Station).  —  Vicksburg,  Miss.  :  The 
Station  ;  Springfield,  Va.  :  available  from  NTXS,  1981. 

238  p.  in  various  pagings  :  ill.  ;  27  cm.  —  (Technical 
report  /  U.S.  Army  Engineer  Waterways  Experiment  Station  ;  j 

GL-81-10)  i 

Cover  title.  ! 

"October  1981."  \ 

Final  report.  % 

"Prepared  for  Office,  Chief  of  Engineers,  U.S.  Army  : 

under  Project  1<A762719ATL0,  Work  Unit  E0/005." 

References:  p.  50-52. 

1.  Cost.  2.  Cost  effectiveness.  3-  Tunnels.  j 

I.  United  States.  Army.  Corps  of  Engineers.  Office  of  the  | 

Chief  of  Engineers.  IX.  U.S.  Army  Engineer  Waterways  j 

Experiment  Station.  Geotechnical  Laboratory.  III.  Title  j 

IV.  Series:  Technical  report  (U.S.  Army  Engineer  i.j 

Waterways  Experiment  Station)  ;  GL-81-10.  , 

TA7.W3bm  no.  GL-81-10  _ ___  ; 


